Re: Excel makro:zoom+display zero na vsechno

toto je z helpu:
This function affects only the sheet that's currently active in the
window. To use this property on other sheets, you must first activate
them.

a toto je jedno z mnohych moznych rieseni:
Sub Macro5()
Dim unvisibility As Boolean
For Each myList In ActiveWorkbook.Sheets
If myList.Visible = False Then
myList.Visible = True
unvisibility = True
End If
myList.Activate
ActiveWindow.Zoom = 75
ActiveWindow.DisplayZeros = False
If unvisibility Then
myList.Visible = False
unvisibility = False
End If
Next
End Sub


On 3/17/06, Simona Trneckova <strnecka@gmail.com> wrote:
> Prosim pekne o radu.
>
> Nahrala jsem tohle mini makro:
>
>
> Sub Macro5()
> '
> ' Macro5 Macro
>     ActiveWindow.Zoom = 75
>     ActiveWindow.DisplayZeros = False
> End Sub
>
>
>
> A potrebovala bych jej upravit jeste tak, aby se zadane upravy neaplikovaly
> pouze na aktivni list, ale na vsechny listy v aktivnim sesitu, vcetne
> schovanych.....  Mam jich v sesitu kolem osmdesatky, provazanych mezi sebou
> a tyhle parametry se mi nekdy prenastavuji.
>
> Kdyz uz jsem u toho, ma Excel take nejaka omezeni na pocet listu v sesitu?
>
> Diky moc
>
> Simona
>
>


--
AleX