Bildschirmeinstellungen 100%/125%/150%
22.06.2018 13:44:21
scipiol
Mein Makro erzeugt eine bestimmte Anordnung von Grafiken. Das hat bisher auch immer problemlos geklappt. Nun hat ein Kollege von mir das Tool nutzen wollen und das Makro ausgeführt. Dabei sind die Grafiken nun allesamt nach unten verrutscht. Es hat sich herausgestellt, dass er seinen Bildschirmanzeige auf 150% gestellt hat.
Hier der Code, durch den die Grafiken eingefügt werden.
Set pic1 = Sheets("Ordnerruecken").Pictures.Insert(kunde)
Set rCell = Cells(kzeile, spalte)
With pic1
.Top = rCell.Top
.Left = rCell.Left
End With
Das Problem muss nicht grundsätzlich behoben werden, aber hat jemand Erfahrung, wie man die Einstellung von Windows auslesen kann? Also ob es 100, 125 oder 150% sind?Wenn ich das weiß, kann ich mit Switch-Case die Formatierung wieder korrigieren.
Vielen Dank schon im Voraus.
Freundliche Grüße,
Scipiol