Comment insérer une image dans Excel à une position de la cellule à l'aide de VBA

Je suis en ajoutant ".jpg" des fichiers sur ma feuille Excel avec le code ci-dessous :

'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

Je ne sais pas ce que je fais de mal, mais elle n'est pas insérée dans la cellule de droite, alors que dois-je faire pour mettre cette image dans une cellule spécifiée dans Excel?

  • Vous pouvez définir l'image de la propriété TopLeftCell.
  • oui après de longues heures de programmation parfois les choses aussi faciles que cela deviennent une grosse affaire que vous savez..
InformationsquelleAutor Berker Yüceer | 2012-10-17
  1. 42

    Essayez ceci:

    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

    Il est préférable de ne pas .sélectionnez rien dans Excel, il n'est habituellement pas nécessaire et ralentit votre code.

    • Quick&Belle réponse merci.
    • Pour les personnes en débarquant ici. Les différentes versions d'Excel traiter cette demande différemment, Excel 2007 insérer l'image comme un objet, c'est à dire l'intégrer dans le classeur. Excel 2010 pour insérer un lien, qui est de mauvaise fois, si vous prévoyez de l'envoyer à n'importe qui. Vous avez besoin de changer la plaquette de préciser qu'il est incorporé: Insert(Filename:= <path>, LinkToFile:= False, SaveWithDocument:= True)
    InformationsquelleAutor SWa
  2. 1

    Je travaille sur un système qui a couru sur un PC et un Mac et luttait pour trouver le code qui a travaillé pour l'insertion de photos sur les deux PC et Mac. Cela a fonctionné pour moi alors j'espère que quelqu'un d'autre peut faire usage de celui-ci!

    Remarque: le strPictureFilePath et strPictureFileName nécessaire de définir de variables valides PC et Mac chemins par exemple

    Pour PC: strPictureFilePath = "E:\Dropbox\" et strPictureFileName = "TestImage.jpg" et avec Mac: strPictureFilePath = "Macintosh HD:Dropbox:" et strPictureFileName = "TestImage.jpg"

    Code comme Suit:

        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 Tristan
  3. 1

    Si c'est simplement sur l'insertion et le redimensionnement d'une image, essayez le code ci-dessous.

    Pour la question précise que vous avez demandé, la propriété TopLeftCell renvoie la plage liée à l'objet de la cellule où le coin en haut à gauche est à l'arrêt. Pour placer une nouvelle image à un endroit précis, je vous recommande de créer une image à la "bonne" place et l'enregistrement de son haut et de gauche, les valeurs des propriétés de la tôle sur les variables doubles.

    Insérez votre Pic affectée à une variable de facilement changer son nom. La Forme de l'Objet auront le même nom que l'Image de l'Objet.

    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

    Bonne chance!

    InformationsquelleAutor FCastro