VBA – Bilder oder Grafiken in eine Excel Zelle kopieren mit ActiveSheet.Shapes

Hier demonstriere ich Ihnen mit einem VBA Codeschnipsel wie man Bilder in eine Excel-Zelle kopieren kann. Der Code kann auch einfach ins VB.Net übertragen werden.

So wirds gemacht:

Public Sub prcInsertPicture()
        Const strPATH = "D:\Eigene Dateien\Testbilder\" ' anpassen !!!
        Dim lngRow As Long, lngIndex As Long
        Dim intColumn As Integer
        Dim objShape As Object
        intColumn = 2
        lngIndex = 27
        For Each objShape In ActiveSheet.Shapes
            If objShape.Type = msoPicture Then objShape.Delete()
        Next
        For lngRow = 13 To 18
            If Trim$(Cells(lngRow, 6).Text) <> "" Then
                If Dir$(strPATH & Trim$(Cells(lngRow, 6).Text) & _
                ".jpg", vbNormal) <> "" Then
                    objShape = ActiveSheet.Pictures.Insert(strPATH & _
                    Trim$(Cells(lngRow, 6).Text) & ".jpg")
                    With objShape
                        .Left = Cells(lngIndex, intColumn).Left
                        .Top = Cells(lngIndex, intColumn).Top
                        .ShapeRange.Height = Range(Cells(lngIndex, _
                        intColumn), Cells(lngIndex + 7, intColumn)).Height
                    End With
                End If
            End If
            If intColumn = 2 Then
                intColumn = 4
            Else
                intColumn = 2
                lngIndex = lngIndex + 10
            End If
        Next
        objShape = Nothing
    End Sub

Bei Fragen verwenden Sie bitte die Kommentarfunktion des Artikels.
Vielen Dank für Ihr Interesse an bridgesolution BLOG !

Markiert in:

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.