Supportnet / Forum / Tabellenkalkulation
Schriftgrad
Frage
Hallo,
bei den Bildschirmeinstellungen unter Windows gibt es die Möglichkeit zwischen kleinem und großem Schiftgrad zu wählen. Weiß jemand, ob man diese Einstellung unter VBA irgendwie abfragen kann?
Hintergrund ist, dass Excel bzw. VBA je nach Einstellung Größen von mit VBA erstellen Grafiken unterschiedlich berechnet. Um diesen Unterschied wieder ausgleichen zu können, müßte ich jedoch von irgendwoher wissen, welche Einstellung am aktuellen Rechner verwendet wird.
Danke für Eure Hilfe,
Monika
Antwort 1 von Guenter
Hallo,
Du kannst die Bildschirmauflösung des Rechners mit Excel VBA ermitteln. Vielleicht hilft Dir das bei der Bereechnung der Größe der Grafik.
gefunden bei
http://www.schmittis-page.de/index.html?/excel/faq/faq.htm
Gruß
Günter
Du kannst die Bildschirmauflösung des Rechners mit Excel VBA ermitteln. Vielleicht hilft Dir das bei der Bereechnung der Größe der Grafik.
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CYSCREEN As Long = 1
Const SM_CXSCREEN As Long = 0
Sub GetScreenDimensions()
Dim lWidth As Long
Dim lHeight As Long
lWidth = GetSystemMetrics(SM_CXSCREEN)
lHeight = GetSystemMetrics(SM_CYSCREEN)
MsgBox "Screen Width = " & lWidth & vbCrLf & "Screen Height = " & lHeight
End Sub
gefunden bei
http://www.schmittis-page.de/index.html?/excel/faq/faq.htm
Gruß
Günter
Antwort 2 von Mokal
Hallo Günter,
danke, die Funktion habe ich nicht gekannt!
Allerdings löst sie mein Problem noch nicht. die Berechnung der Größe hängt nämlich nicht von der Bildschirmauflösung ab, sondern (wie es scheint) vom eingestellten Schriftgrad (große Schriftarten oder kleine Schriftarten).
Ich verwende folgenden Befehl für die Grafikgröße:
ActiveSheet.Shapes(Grafiknummer).Width = 360
Das verwunderliche daran ist auch, dass bei den kleinen Schriftarten die Grafiken größer werden als bei den großen Schriftarten!
Servus,
Monika
danke, die Funktion habe ich nicht gekannt!
Allerdings löst sie mein Problem noch nicht. die Berechnung der Größe hängt nämlich nicht von der Bildschirmauflösung ab, sondern (wie es scheint) vom eingestellten Schriftgrad (große Schriftarten oder kleine Schriftarten).
Ich verwende folgenden Befehl für die Grafikgröße:
ActiveSheet.Shapes(Grafiknummer).Width = 360
Das verwunderliche daran ist auch, dass bei den kleinen Schriftarten die Grafiken größer werden als bei den großen Schriftarten!
Servus,
Monika
Antwort 3 von Guenter
Hallo,
Du kannst vielleicht Excel dazu bringen, nicht auf die kleinen Schriftarten umzuschalten.
In der MS Knowledgebase gibt es dazu einen Hinweis für Excel 97.
http://support.microsoft.com/default.aspx?scid=kb%3Bde%3BD3...
Auf der anderen Seite fällt mir jetzt ein, dass Du auch den Wert aus der Registry auslesen kannst.
Mit GetSetting kann man nur auf einen bestimmten Bereich der Registry zugreifen.
Jetzt kommt es darauf an, ob diese Fonteinstellung in dem zugänglichen Bereich abgelegt ist.
Gruß
Günter
Du kannst vielleicht Excel dazu bringen, nicht auf die kleinen Schriftarten umzuschalten.
In der MS Knowledgebase gibt es dazu einen Hinweis für Excel 97.
http://support.microsoft.com/default.aspx?scid=kb%3Bde%3BD3...
Auf der anderen Seite fällt mir jetzt ein, dass Du auch den Wert aus der Registry auslesen kannst.
Mit GetSetting kann man nur auf einen bestimmten Bereich der Registry zugreifen.
Jetzt kommt es darauf an, ob diese Fonteinstellung in dem zugänglichen Bereich abgelegt ist.
Gruß
Günter