Zoom Faktor per VBA setzen

17/02/2009 - 17:11 von Reiner Giesen | Report spam
Hallo NG,

per VBA möchte ich den Zoom-Faktor eines Worksheets in ein anderes Worksheet
übernehmen. Das Quell- als auch das Ziel-Worksheet sollen nicht aktiviert
werden.

Problem:
Das Atttibut des Zoom-Faktors steht in dem Window-Objekt. Wie kann ich über
das entsprechende Worksheet-Objekt an das Window-Objekt gelangen?
Die Online-Hilfe verweist auf das Attribute mittels "ActiveWindow.Zoom", um
das Window anzusprechen. Geht es auch anders?

Grüße
Reiner Giesen
 

Lesen sie die antworten

#1 Wolfgang Kutsche
18/02/2009 - 11:57 | Warnen spam
Hallo Reiner,

mit nachfolgendem Code wird der Zoom übertragen, ohne dass die beteiligten
Tabellenblàtter sichtbar aktiviert werden.
Quelle und Ziel sind noch entsprechend anzupassen.

Dim zoomfaktor As Integer
Dim TabName As String
Const Quelle = "Tabelle1"
Const Ziel = "Tabelle2"

Sub Zoom_Übernehmen()
'Zoom von Tabelle "Quelle" nach Tabelle "Ziel" übernehmen
Application.ScreenUpdating = False
'>>> ursprüngliche Tabelle merken
TabName = ActiveSheet.Name
'>>> Wechsel zu Tabelle Quelle
Sheets(Quelle).Select
zoomfaktor = ActiveWindow.Zoom
'>>> Wechsel zur Tabelle Ziel
Sheets(Ziel).Select
ActiveWindow.Zoom = zoomfaktor
'>>> Wechsel zur Ursprünglichen Tabelle
Sheets(TabName).Select
'>>> Erfolgsmeldung
MsgBox "... die Zoom-Einstellung von Tabelle '" & Quelle _
& "' wurde nach Tabelle '" & Ziel & "' übertragen." _
, , " Zoom-Einstellung übertragen"
End Sub

Gruß Wolfgang
WinXP Home SP3, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de


"Reiner Giesen" wrote:

Hallo NG,

per VBA möchte ich den Zoom-Faktor eines Worksheets in ein anderes Worksheet
übernehmen. Das Quell- als auch das Ziel-Worksheet sollen nicht aktiviert
werden.

Problem:
Das Atttibut des Zoom-Faktors steht in dem Window-Objekt. Wie kann ich über
das entsprechende Worksheet-Objekt an das Window-Objekt gelangen?
Die Online-Hilfe verweist auf das Attribute mittels "ActiveWindow.Zoom", um
das Window anzusprechen. Geht es auch anders?

Grüße
Reiner Giesen

Ähnliche fragen