Schriftgrößenanpassung von Windows
09.07.2018 08:33:15
Windows
Ich hatte mich vor meinem Urlaub vor 2 Wochen an euch gewandt, meine Frage aber anscheinend unpräziese gestellt.
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.
Gemeint ist damit die Schriftgrößenanpassung von Windows (die sich auf alle Programme auswirkt) und die man ja nur auf 100, 125 oder 150% setzen kann.
Wie immer auch jetzt schon vielen Dank im Voraus.
Freundliche Grüße,
Scipiol