Makroaufruf über Menüleiste mit Parameter
26.05.2004 09:06:42
MJS
Ich habe folgendes Problem.
Ich habe mir ein Add-Inn gebaut, mit dem ich Sprungmarke setzen und anspringen kann. Dazu und noch für andere Themen habe ich mir ein eigenes Menü gebaut. Jetzt wollte ich das so erweiteren, das man mehrere Rücksprungmarken definieren kann.
Das ganze wollte ich durch eine durch einen Menüeintrag (Type msocontrolpopup) und mehreren Menübuttons (Type msocontrolbuttons) realisieren.
Teil meines Coding:
* Aufbau des Popup-Menüs
Set mpop_anspringen = mpop.Controls.Add(Type:=msoControlPopup, Temporary:=True)
* Aufbau der Buttons
With mpop_anspringen.Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = Menütitel 'Menütitel ist eine Variable
.FaceId = 1
.OnAction = "Rücksprung_anspringen" & (Markennummer)
End With
Manche werde es schon sehen, ich möchte beim '.onaction' Parameter eine Variable mit übergeben. Das bekomme ich nicht hin. Kann mir jemand einen Rat geben?
Vielen Dank im Vorraus