Excel Zoom Tabelle vs. Grafikobjekte

10/04/2015 - 19:37 von Hans Alborg | Report spam
Hallo,

heute in diesem "überlààbten Forum":

Meine Eisenbahnsimu wàchst und stürzt ab (naja, nur auf dem XP-1GB RAM-PC).

Ich kopiere ja Lok und Waggons als Grafik aus einem Hilfsblatt in mein
Hauptblatt um sie dort zu bewegen.
Leider muß ich bisher mit einem Manko leben:

je nach Zoomstufe wird die Lok (Wagen dito) nicht an die richtige Stelle ins
Blatt gesetzt (das wàre auf die Schiene!!). Es scheint eine Diskrepanz
zwischen Blattzoom und Kopierkoordinaten zu geben.
Jetzt wàhrend ich das schreibe, hab ich die Idee, den Zoom des Hilfsblatts
vor dem Kopieren an das Hauptblatt anzupassen, also stets beide Blàtter
"syncron" zu zoomen.

Allerdings erfolgt das zoomen im Hauptblatt hàndisch.
Mal gucken was da zu machen ist... ein Worksheet_ZoomChange - Ereignis?.

Sind solche Diskrepanzen beim Einkopieren von Objekten bei unterschiedlichen
Zooms schon bekannt?

Hier ein kleiner Auszug nachdem das Fahrzeugs an eine beliebige Stelle ins
Hauptblatt "shAu" kopiert wurde:

With shAu.Shapes(Fzg)
.Left = Cells(153, xTS_Pos).Left + Wg_Offset
.Top = Cells(153, xTS_Pos).Top + 5
End With

So positioniere ich Lok oder Waggons.
Die Höhe von 153 Rows stimmt halt bei niedriger Zoomstufe (50...20...?)
nicht mehr, in der Regel landet das Fahrzeug "im Himmel". Bei den Columns
ist das àhnlich.

Hans
 

Lesen sie die antworten

#1 Claus Busch
10/04/2015 - 19:54 | Warnen spam
Hallo Hans,

Am Fri, 10 Apr 2015 19:37:47 +0200 schrieb Hans Alborg:

Hier ein kleiner Auszug nachdem das Fahrzeugs an eine beliebige Stelle ins
Hauptblatt "shAu" kopiert wurde:

With shAu.Shapes(Fzg)
.Left = Cells(153, xTS_Pos).Left + Wg_Offset
.Top = Cells(153, xTS_Pos).Top + 5
End With



ich habe deine Mappe und deine Grafiken nicht und kann deshalb nur mit
Zahlen testen.
Egal welchen Zoomfaktor ich wàhle, Top und Left für eine Zelle bleiben
immer gleich.
Müsstest du nicht das Wg_Offset bzw. bei Top die 5 an den Zoomfaktor
anpassen?
Selektiere beide Blàtter und stelle dann den Zoomfaktor bei gruppierten
Blàttern ein.


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen