Höhe der Symbolleisten ermitteln

29/09/2007 - 22:54 von Zwergel | Report spam
Hallo,

nachdem ich auf dem Weg der Forumsanfrage und durch eigene Suche per
Google zu meiner Frage keine Antwort erhalten habe, dieser Versuch.

Besteht eine Möglichkeit, die Höhe der sichtbaren Menü- und
Symbolleisten (CommandBars) in Excel zu ermitteln und wenn ja, wie?
Michael
 

Lesen sie die antworten

#1 Ka Prucha
30/09/2007 - 07:24 | Warnen spam
"Zwergel" schrieb

nachdem ich auf dem Weg der Forumsanfrage und durch eigene Suche per
Google zu meiner Frage keine Antwort erhalten habe, dieser Versuch.

Besteht eine Möglichkeit, die Höhe der sichtbaren Menü- und
Symbolleisten (CommandBars) in Excel zu ermitteln und wenn ja, wie?



Servus

Die Höhe oder Breite, denn die bars können auch seitlich sein.
Beispiel für Bars sind oben oder links:

Public Function bars(pos As Long) As Long
Dim d As Long, cb As Variant 'As CommandBar erfordert Referenz zu Office x.x Object Library!
For Each cb In CommandBars
If cb.Visible Then
'Debug.Print cb.Name; cb.position; cb.Top; cb.Left; cb.Height; cb.Width
If cb.position = msoBarLeft And pos = msoBarLeft Then If d < cb.Left + cb.Width Then d = cb.Left + cb.Width
If cb.position = msoBarTop And pos = msoBarTop Then If d < cb.Top + cb.Height Then d = cb.Top + cb.Height
End If
Next cb
bars = d
End Function

mfg Ka Prucha

Ähnliche fragen