Hallo Wissende,
ich möchte ein Objekt aus einer Datei erstellt als Symbol einfügen.
Manuell geht es so daß ich anwähle:
Einfügen--Objekt (es erscheint das Fenster "Objekt"), dort klick auf "Durchsuchen", es erscheint ein gleichnamiges Fensterchen wo ich Datei auswählen kann.
Wie kann ich dies per Vba erreichen, mir also eine Datei auszusuchen in einem Fenster?
Ich dachte an:
Application.Dialogs(Nummer).show
dazu bräuchte ich aber die Nummer da ich den Wordnamen des integrierten Dialogfeldes nicht kenne.
Nachfolgendes Makro half mir nicht weiter, bei den drei If-Bedingungen wird dreimal in Folge "297" ausgegeben.
Lasse ich mir in der untersten Zeile den CommandName von Nummer 297 anzeigen so ist der "Benutzerdialog", anzeigt wird dieser Dialog aber nicht.
Interessnterweise läuft das Makro auch problemlos in Excel obwohls da es CommandName gar nicht geben soll laut Lokalfenster bei derVariablen S, anstatt immer 297 werden da wahllos sehr viele Nummern gefunden,aber gut, spielt keine Rolle.
Private Sub CommandButton1_Click()
Dim N, S
On Error Resume Next
For N = 1 To 5000
Set S = Application.Dialogs(N) '.Show
If Err.Number = 0 Then
If S.CommandName = "Durchsuchen" Then MsgBox N & "a"
If S.CommandName = "Objekt" Then MsgBox N & "b"
If S.CommandName = "gibtsDochgarNicht" Then MsgBox N & "c"
Else
Err.Clear
End If
Next N
Application.Dialogs(297).Show timeout:=10000
MsgBox Application.Dialogs(297).CommandName
End Sub
Reinhard