alle Tabellenblätter auf gewisse Größe zoomen
Christian John
ich möchte ein Makro bauen, das alles Tabellenblättern 65% Zoom zuweist.
Es sind relative viele Tabellenblätter und der Name jedes einzelnen Blattes
soll keine Rolle spielen.
Wie bekomme ich das hin?
Mit active.window kann ich es jaicht machen, und bei Sheets scheint es Zoom
ja nicht zu geben....
??
Danke!
grüße
Christian John
Mike Berger
ich hatte dies mit folgendem Makro gelöst:
Dim Blatt As Object
Dim intI As Integer
For intI = 1 To ActiveWorkbook.Sheets.Count
Sheets(intI).Activate
ActiveWindow.Zoom = 65
Next intI
Gruß
Mike
Christian John schrieb:
Claus Busch
Am Thu, 10 Sep 2009 00:41:01 -0700 schrieb Christian John:
> ich m�chte ein Makro bauen, das alles Tabellenbl�ttern 65% Zoom zuweist.
> Es sind relative viele Tabellenbl�tter und der Name jedes einzelnen Blattes
> soll keine Rolle spielen.
probiers mal so:
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Activate
ActiveWindow.Zoom = 65
Next
Application.ScreenUpdating = True
Mit freundlichen Gr�ssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
Christian John
Noch cooler wäre ja wenn man vorher in einem Fenster gefragt würde auf
welchen zoom man es haben will...
Wie würdest Du das machen?
Dass ich eine Variable brauche und eine msgbox, weiß ich...aber dann hört es
auch schon auf... :-(
Danke
Christian John
Noch cool
Claus Busch
Am Thu, 10 Sep 2009 02:36:06 -0700 schrieb Christian John:
> Noch cooler w�re ja wenn man vorher in einem Fenster gefragt w�rde auf
> welchen zoom man es haben will...
> Wie w�rdest Du das machen?
ins Codemodul "Diese Arbeitsmappe". Beim Aktivieren des Blattes wirst du
gefragt, welche Zoomgr��e eingestellt werden soll. Voreinstellung ist 65%.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim myZoom As Integer
myZoom = Application.InputBox("Welche Zoomgr��e soll eingestellt werden?",
_
"Zoomgr��e", 65, Type:=1)
If myZoom = 0 Then
Exit Sub
Else
ActiveWindow.Zoom = myZoom
End If
End Sub
Bernhard Sander
> Noch cooler wäre ja wenn man vorher in einem Fenster gefragt würde auf
> welchen zoom man es haben will...
Warum erst lange die Benutzer nach Zahlen fragen?
Greif den Zoomfaktor des aktiven Blatts ab und setze die anderen Blätter auf
diesen Faktor. Noch eine Ergänzung: aktiviere am Schluss wieder das Ausgangsblatt.
>> Dim intI As Integer
Dim Ausgangsblatt As Sheet
Dim ZoomFaktor As Variant
Set Ausgangsblatt = ActiveSheet
ZoomFaktor = ActiveWindow.Zoom
>> For intI = 1 To ActiveWorkbook.Sheets.Count
>> Sheets(intI).Activate
ActiveWindow.Zoom = ZoomFaktor
>> Next intI
Ausgangsblatt.Activate
Gruß
Bernhard Sander