So fügen Sie ein Bild in Excel an einer angegebenen Zellenposition mit VBA ein

Ich bin hinzufügen ".jpg" Dateien in mein Excel-sheet mit den folgenden code :

'Add picture to excel
xlApp.Cells(i, 20).Select
xlApp.ActiveSheet.Pictures.Insert(picPath).Select
'Calgulate new picture size
With xlApp.Selection.ShapeRange
    .LockAspectRatio = msoTrue
    .Width = 75
    .Height = 100
End With
'Resize and make printable
With xlApp.Selection
    .Placement = 1 'xlMoveAndSize
    '.Placement = 2 'xlMove
    '.Placement = 3 'xlFreeFloating
    .PrintObject = True
End With

Ich weiß nicht, was ich falsch mache aber es wird nicht eingefügt, in die richtige Zelle, also was soll ich tun um dieses Bild in einen angegebenen Zelle in Excel?

Kommentar zu dem Problem
Sie können das Bild die TopLeftCell-Eigenschaft. Kommentarautor: Tim Williams
ja nach langen Stunden der Programmierung manchmal sind die Dinge so einfach wie diese eine große Sache, die Sie wissen.. Kommentarautor: Berker Yüceer

InformationsquelleAutor der Frage Berker Yüceer | 2012-10-17

  1. 36

    Versuchen Sie dies:

    With xlApp.ActiveSheet.Pictures.Insert(PicPath)
    With .ShapeRange
        .LockAspectRatio = msoTrue
        .Width = 75
        .Height = 100
    End With
    .Left = xlApp.ActiveSheet.Cells(i, 20).Left
    .Top = xlApp.ActiveSheet.Cells(i, 20).Top
    .Placement = 1
    .PrintObject = True
End With

    Es ist besser, nicht zu .wählen Sie alles, was in Excel, ist es in der Regel nie notwendig und verlangsamt den code.

    InformationsquelleAutor der Antwort SWa

  2. 1

    Arbeite ich auf einem system lief auf einem PC und Mac und kämpfte um nach code zu suchen, arbeitete für das einfügen von Bildern auf PC und Mac. Dieser arbeitete für mich, so dass ich hoffe, jemand anderes kann Sie nutzen!

    Hinweis: die strPictureFilePath und strPictureFileName Variablen eingestellt werden müssen, um zu gültigen PC-und Mac-Pfade, Z.B.

    Für PC: strPictureFilePath = "E:\Dropbox\" und strPictureFileName = "TestImage.jpg" und mit Mac: strPictureFilePath = "Macintosh HD:Dropbox:" und strPictureFileName = "TestImage.jpg"

    Code wie Folgt:

        On Error GoTo ErrorOccured

    shtRecipeBrowser.Cells(intDestinationRecipeRowCount, 1).Select

    ActiveSheet.Pictures.Insert(Trim(strPictureFilePath & strPictureFileName)).Select

    Selection.ShapeRange.Left = shtRecipeBrowser.Cells(intDestinationRecipeRowCount, 1).Left
    Selection.ShapeRange.Top = shtRecipeBrowser.Cells(intDestinationRecipeRowCount, 1).Top + 10
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 130

    InformationsquelleAutor der Antwort Tristan

  3. 1

    Ob es einfach zum einfügen und ändern der Bildgröße, versuchen Sie den folgenden code ein.

    Für die bestimmte Frage, die Sie gebeten, die Eigenschaft TopLeftCell gibt das range-Objekt im Zusammenhang mit der Zelle, wo die linke Obere Ecke geparkt ist. Um einen neuen Bild an einer bestimmten Stelle, ich empfehle, ein Bild zu schaffen von der "richtigen" Stelle und Registrierung der Eigenschaften top und left-Werte der dummy auf double-Variablen.

    Legen Sie Ihre Pic einer Variablen zugewiesen, um einfach seinen Namen ändern. Die Shape-Objekte haben gleichen Namen wie das Bild-Objekt.

    Sub Insert_Pic_From_File(PicPath as string, wsDestination as worksheet)
    Dim Pic As Picture, Shp as Shape
    Set Pic = wsDestination.Pictures.Insert(FilePath)
    Pic.Name = "myPicture"
    'Strongly recommend using a FileSystemObject.FileExists method to check if the path is good before executing the previous command
    Set Shp = wsDestination.Shapes("myPicture")
    With Shp
        .Height = 100
        .Width = 75
        .LockAspectRatio = msoTrue  'Put this later so that changing height doesn't change width and vice-versa)
        .Placement = 1
        .Top = 100
        .Left = 100
    End with
End Sub

    Glück!

    InformationsquelleAutor der Antwort FCastro

Schreibe einen Kommentar