Symbolleisten und FaceID's

20/01/2008 - 16:51 von WolfgangK | Report spam
Ich habe Symbolleisten in Office 2003 erstellt und die Bilder auf den
Schaltflàchen mit dem Editor bearbeitet.
In Office 2007 müssen diese Symbolleisten nun in VBA programmiert werden -
auch kein Problem - nur wie kann ich die FaceID's ermitteln, um sie im
VBA-Code einzufügen ?

Danke für alle Anregungen im Voraus.

WolfgangK
 

Lesen sie die antworten

#1 Hajo_Zi
20/01/2008 - 17:22 | Warnen spam
Hallo Wolfgang,

in 2007 werden ddie Symbolleisten nicht über VBA programmiert sondern XML.
Siehe ein Beitrag höher.

Option Explicit

Public Sub FaceID_und_Icon()
'Peter Haserodt 2004
'Schreibt in das Active Sheet die FaceID und das Bild dazu
Dim iZahl As Long, oCommand As CommandBar, g As Object
Application.ScreenUpdating = False
With ActiveSheet
.Cells.Clear ' Altes raus
.Shapes.SelectAll ' Weg mit den Shapes
Selection.Delete
For Each oCommand In Application.CommandBars
For Each g In oCommand.Controls
If TypeName(g) = "CommandBarButton" Then
If g.FaceId <> 0 Then
iZahl = iZahl + 1
.Cells(iZahl, 1) = g.FaceId
g.CopyFace
.Cells(iZahl, 2).Select ' Ich denke dass müsste raus
aber wie ?
.Paste
End If
End If
Next
Next
End With
Application.ScreenUpdating = True
End Sub

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate und Excel Version2007
http://Hajo-Excel.de/



"WolfgangK" wrote:

Ich habe Symbolleisten in Office 2003 erstellt und die Bilder auf den
Schaltflàchen mit dem Editor bearbeitet.
In Office 2007 müssen diese Symbolleisten nun in VBA programmiert werden -
auch kein Problem - nur wie kann ich die FaceID's ermitteln, um sie im
VBA-Code einzufügen ?

Danke für alle Anregungen im Voraus.

WolfgangK

Ähnliche fragen