VBA Code to Insert a Linked Picture in Excel

VBA code that you can use to insert a linked picture in Excel.

VBA Code:

Sub InsertLinkedPicture()
    Dim filePath As String
    Dim pictureTopLeftCell As Range
    Dim pictureWidth As Long
    Dim pictureHeight As Long
    Dim picture As Picture
    ' Set the file path of the picture
    filePath = "C:\Path\To\Picture.jpg" ' Change the path and filename as desired
    ' Set the top-left cell for the picture placement
    Set pictureTopLeftCell = Range("A1") ' Change the cell reference as desired
    ' Set the dimensions of the picture
    pictureWidth = 200 ' Change the width as desired
    pictureHeight = 200 ' Change the height as desired
    ' Insert the linked picture
    Set picture = ActiveSheet.Pictures.Insert(filePath)
    ' Set the picture properties
    With picture
        .Left = pictureTopLeftCell.Left
        .Top = pictureTopLeftCell.Top
        .ShapeRange.LockAspectRatio = msoFalse
        .Width = pictureWidth
        .Height = pictureHeight
        .Placement = xlMoveAndSize
        .ShapeRange.LinkFormat.SourceFullName = filePath
    End With
    ' Inform the user that the linked picture has been inserted
    MsgBox "The linked picture has been inserted!"
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment