Office: Dialog zum Einfügen einer Grafik

Daniel26 · 18. Februar 2007

Hallo,

ich möchte in einem Macro nur den Dialog "Einfügen" - "Grafik" - "Aus Datei" öffnen. Leider kann ich das mit dem Marco-Recorder nicht aufzeichnen. Die Datei sol der User später selber auswählen.

Hat mir jemand den VBA-Befehl dazu?

Danke

Gruß

Daniel

:)

IngGi · 19. Februar 2007

Hallo Daniel,

das geht mit folgendem Befehl:
Code:

Application.Dialogs(xlDialogInsertPicture).Show
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

Lochost · 19. Februar 2007

Hallo Daniel

Hiermal den Code den ich dazu habe:

Code:

Option Explicit

Public Sub Grafik_Einfuegen()
Dim strDatei As String
Dim strOrdner As String
Dim objGrafik As Object
Dim wksBlatt As Worksheet

On Error GoTo Schluss

strOrdner = "C:\" 'Der Ordner in dem die Suche nach dem Bild gestartet wird
Set wksBlatt = ThisWorkbook.Worksheets("Tabelle1") 'Tabellenblatt in die das Bild eingefügt wird

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = strOrdner
.Title = "Dateiauswahl"
.Filters.Add "Bilder", "*.gif; *.jpg; *.bmp", 1 'erlaubte Grafikformate
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strDatei = .SelectedItems(1)
Else
MsgBox "Es wurde keine Datei ausgewaehlt!"
Exit Sub
End If
End With

wksBlatt.Unprotect Password:="Passwort" 'Um ein geschütztes Blatt kurzzeitig zu "Entschützen", damit das Bild eingefügt werden kann.

Set objGrafik = wksBlatt.Pictures.Insert(strDatei)
With objGrafik
.Left = Cells(15, 49).Left 'Einfügen in B24 linker Rand des Bildes
.Top = Cells(15, 49).Top 'Einfügen in B24 oberer Rand des Bildes
.Locked = False 'Grafik ungeschützt
End With

Schluss:

wksBlatt.Protect Password:="Passwort", AllowFormattingCells:=True 'Das Blatt wird wieder geschützt, kann aber formatiert werden

Set objGrafik = Nothing
Set wksBlatt = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe den Code selber so erhalten. Daher kann ich dir so keine Hilfestellung dazu geben.
Tabellenblatt, Position und ggf. Passwort musst Du dann auf deine Datei abstimmen. Ist das Blatt nicht geschützt, kannst Du das mit dem Passwort auch weglassen *wink.gif*

Hoffe geholfen zu haben

Daniel26 · 20. Februar 2007

Danke euch beiden, das wars.

Gruß

Daniel

Peter Listig · 9. Januar 2019

Hallo, ich grüße Sie und hoffe Sie sind noch online...
Ihr Code sieht sehr interessant aus, leider fügt er kein Bild bei mir ein.
habe das Makro mit einem Steuerelement direkt von der Seite aus aufgerufen, Quelle und Ziel korrekt angegeben, leider passiert dann nichts.

EarlFred · 9. Januar 2019

leider passiert dann nichts.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du hast bemerkt, dass das Bild in Tabelle1 eingefügt wird und an dieser Zelle ausgerichtet wird? Cells(15, 49), das entspricht Zelle AW15. Vermutlich musst Du nur nach rechts scrollen, um das Bild zu finden.

MisterBurns · 9. Januar 2019

\@EarlFred: Hier geht's wohl weiter
https://www.ms-office-forum.net/foru...d.php?t=357010

Peter Listig · 10. Januar 2019

\@Earl Fred, na toll, ich habe extra rausgezoomt um das zu überprüfen, leider hat er dann die Bilder ausgeblendet, aber danke für den Hinweis.

Office: Dialog zum Einfügen einer Grafik

Dialog zum Einfügen einer Grafik

Dialog zum Einfügen einer Grafik

Dialog zum Einfügen einer Grafik

Dialog zum Einfügen einer Grafik

Dialog zum Einfügen einer Grafik - Similar Threads - Dialog Einfügen Grafik

Excel found a problem with one or more formula references in this worksheet

VBA: "Speichern unter" Dialog aufrufen mit automatischen Dateitypen -->PDF

Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen

Ordner über Dialog auswählen

Anlagen ohne Dialog Öffnen

Export Dialog aufrufen

Fußzeilen werden nicht gedruckt (pdf), Häkchen im Dialog nicht übernommen