AW: Tag-Eigenschaft von zwei controls
04.10.2006 11:36:36
zwei
Hallo Rudi,
ich belege zunächst das Kontextmenü für die rechte Maustaste neu. Bei Klick auf einen Eintrag wird dann eine weitere Symbolleiste ausgerufen, z. B.:
Sub CBZeilenNeu()
On Error Resume Next
Application.CommandBars("leiste2").Delete
Set obar = Application.CommandBars.Add("leiste2", msoBarPopup, False, True)
For i = 1 To 4
Set obtn = obar.Controls.Add
With obtn
.Style = msoButtonIconAndCaption
.Height = 20
.Width = 200
End With
Next
obar.Controls(1).Caption = "1 Zeile einfügen"
obar.Controls(2).Caption = "2 Zeilen einfügen"
obar.Controls(3).Caption = "3 Zeilen einfügen"
obar.Controls(4).Caption = "5 Zeilen einfügen"
obar.Controls(1).Tag = 1
obar.Controls(2).Tag = 2
obar.Controls(3).Tag = 3
obar.Controls(4).Tag = 5
For i = 1 To 4
obar.Controls(i).OnAction = "ZeilenEinfuegen"
Next
obar.Width = 1
obar.ShowPopup
End Sub
Ich möchte jetzt die Tag-Eigenschaften des Controls im Kontextmenu der rechten Maustaste und auch die Tag-Eigenschaft der dann aufgerufenen Symbolleiste ermitteln.
Gruß Emil