Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Makros den Menu Buttons zuweisen

Betrifft: Makros den Menu Buttons zuweisen von: Corinne
Geschrieben am: 23.08.2004 15:34:48

Hallo

Habe ein File mit Menuleiste erstellt. Über Attach habe ich die Menueleiste angefügt. Nun öffne ich das File von einem anderen Rechner und bei jedem Button fragt er nach dem Makro. Wie kann ich das definieren, dass das Menue bei allen Rechnern geht?

Co

  


Betrifft: AW: Makros den Menu Buttons zuweisen von: micha
Geschrieben am: 23.08.2004 16:30:08

Hi Corinne,

warum machst du nicht ein addin, was du überall "installieren" kannst.
einfach unter XLstart stellen und fertig!

geht so:


'Makro beim AddIn Start aufrufen ... z.B. im Open Event!

Private Sub Workbook_Open()
Dim i As Integer
Dim i_Hilfe As Integer
Dim MenüNeu As CommandBarControl
Dim Mb As CommandBarControl

 i = Application.CommandBars(1).Controls.Count
 i_Hilfe = Application.CommandBars(1).Controls(i).Index
 Set MenüNeu = Application.CommandBars(1). _
  Controls.Add(Type:=msoControlPopup, _
  before:=i_Hilfe, Temporary:=True)
 MenüNeu.Caption = "Link senden"
 
 Set Mb = MenüNeu.Controls.Add _
        (Type:=msoControlButton)
    With Mb
        .Caption = "&Verknüpfung senden" 'musst du anpassen auf dein Makro
        .Style = msoButtonIconAndCaption
        .OnAction = "Verknüpfung_senden" 'musst du anpassen auf dein Makro
        .FaceId = 137
        .BeginGroup = True
    End With
End Sub


***************
ins modul:

Sub Verknüpfung_senden()

Dim Name As String
Name = ActiveWorkbook.FullName
Dim App, Itm
Dim Antwort As String
Antwort = MsgBox(prompt:="Sind sie sicher, daß der Empfänger" & _
Chr(13) & "Zugriffsrechte auf den Pfad hat?", Buttons:=vbYesNo)
On Error Resume Next
If Antwort = vbNo Then
MsgBox "Das Makro wurde abgebrochen!", vbCritical
Exit Sub
Else
' "weitermachen mit makro...."
End If
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = Name '"Link und Hyperlink senden"
.To = ""
.Body = "ich habe obige Datei als Verknüpfung angehängt "
.Attachments.Add Name, 4, , "Link by michaV01"
.Display ' This property is used when you want the user to see email and
' manually send. Then comment out rest of code except "End With" statement
' .send
End With
Set App = Nothing
Set Itm = Nothing
End Sub



Fertig!
Kannst das übrigens mal ausprobieren, ist nen spitzen makro!
Das macht das gleiche, als wenn du auf "senden An" klickst nur als VGerknüpfung!

CU
Micha


  


Betrifft: AW: Makros den Menu Buttons zuweisen von: Corinne
Geschrieben am: 23.08.2004 16:47:15

Tönt vielversprechend. Habe nur nicht ganz verstanden, was ich alles ersetzen muss.
Co


 

Beiträge aus den Excel-Beispielen zum Thema "Makros den Menu Buttons zuweisen"