Befehl für Autoform formatieren

Forumthread: Befehl für Autoform formatieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Befehl für Autoform formatieren

29.03.2005 17:28:42

Jutta N.

Hallo,
ich suche den Befehl um das Menü "Autoform formatieren > Farben und Linien " anzuzeigen.
Gruß
Jutta

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Befehl für Autoform formatieren

29.03.2005 18:31:14

K.Rola
AW: Befehl für Autoform formatieren

30.03.2005 11:01:23

Jutta N.

AW: Befehl für Autoform formatieren

29.03.2005 18:31:14

K.Rola

Hallo,
Sub Auto_Form_formatieren()
Dim cb As CommandBar, cbb As CommandBarButton
For Each cb In CommandBars
Set cbb = cb.FindControl(ID:=2620, Recursive:=True)
If Not cbb Is Nothing Then
If cbb.Enabled Then
cbb.Execute
Else
MsgBox "Anzeige nur möglich wenn ein Shape markiert ist!" & Space(10), 64, "weise hin..."
End If
End If
Next
End Sub

Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde