Microsoft Excel

Herbers Excel/VBA-Archiv

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

Bild mit jeweiligem Bildnamen einfügen

Betrifft: Bild mit jeweiligem Bildnamen einfügen von: Harald
Geschrieben am: 20.08.2004 09:47:59

Hallo,

ich möchte über den Befehl FiletoOpen Bilder in ein Sheet einlesen. Das
klappt auch Prima. Nun möchte ich aber unter jedes Bild auch den jeweiligen
Bildnamen automatisch darunter stehen haben.

Kann mir jemand dazu helfen?

Vielen Dank

Harald

  


Betrifft: AW: Bild mit jeweiligem Bildnamen einfügen von: ANdreas
Geschrieben am: 20.08.2004 11:14:42

Hallo Harald,

hoffe das hilft weiter:

Private Sub AddPicture()
Dim fileToOpen
Dim pct As Picture

fileToOpen = Application _
    .GetOpenFilename("JPG Files (*.jpg), *.jpg,Bitmap Files (*.bmp), *.bmp,GIF Files (*.gif), *.gif")
If fileToOpen <> False Then
    On Error GoTo ErrorHandler
        Application.ScreenUpdating = True
        With ActiveSheet
            .Range("C6").Select
            Set pct = .Pictures.Insert(fileToOpen)
            pct.Height = 350
            pct.Width = 490
            Range("C5").Value = fileToOpen
            Range("C5").Replace What:="*\", Replacement:="", LookAt:=xlPart
            .Range("A1").Select
        End With
        Application.ScreenUpdating = True
End If

Exit Sub
ErrorHandler:
    Application.ScreenUpdating = True
    MsgBox Err.Description, vbCritical, "Error inserting picture"
End Sub


Gruß
Andreas


 

Beiträge aus den Excel-Beispielen zum Thema "Bild mit jeweiligem Bildnamen einfügen"