Symbolleiste mit Grafik
07.12.2008 11:01:00
Macro
ich möchte beim Start meines Sheets eine eigene Symbolleiste starten. An erster Stelle möchte ich gerne so eine längliche Grafik einbinden.
Ich habe zwar Beispiele gefunden, die an erster ein Icon haben, so ungefähr 9x9 oder 12x12 aber das man zB ein längliche Grafik einbinden kann , so zB. 12x50 (12 hoch , 50 lang) , habe ich nichts gefunden.
Wenn ich meine Symbolleiste einblende:
Sub Symbolleiste_ein()
On Error Resume Next
Dim oBar As CommandBar
Dim oBtn1 As CommandBarButton
Set oBar = CommandBars.Add("MeineLeiste")
oBar.Position = msoBarTop
Set oBtn1 = oBar.Controls.Add
With oBtn1
.Caption = "Code1 aufrufen"
.OnAction = "Code1"
.Style = msoButtonIconAndCaption
ActiveSheet.Shapes("Picture 1").Copy
.PasteFace
End With
'Symbolleist einblenden
oBar.Visible = True
End Sub
Dann wird zwar meine Grafik, die auf dem Sheet liegt, eingebunden, aber wie ein Icon (so 9x9) . Liegt das an der Zeile .Style = msoButtonIconAndCaption
Vielleicht ist das, was ich vorhabe, ja garnicht möglich.
Hat jemand erfahrung mit sowas ?
Danke mal Marko