Selecting an image which I have inserted through VBA

[Tanuja888]

I have used a reference VBA to embedded an image without linking

Sub InsertImage()

    Dim FullPathName as string

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"

        If .Show = -1 Then
            '''''' Store the pathname of selected image to a variable
            FullPathName = .SelectedItems(1)

            '''''' Imports image as embedded into Worksheet
            Activesheet.Shapes.AddPicture filename:=FullPathName, _
            linktofile:=msoFalse, savewithdocument:=msoCTrue, _
            left:=300, _
            top:=200, _
            width:=150, _
            height:=150

            Dim Pic As shape
            For Each Pic In ActiveSheet.Shapes
               ''''' Change "A1" to which ever cell this is being placed in
               'If (Pic.left = Range("A1").left And Pic.top = Range("A1").top) Then
                  Pic.Select
                  Pic.LockAspectRatio = msoTrue
               'End If
            Next Pic
         End If
    End With
End Sub

Now I'm trying to modify this program to select the image which got inserted.

Can anyone suggest the syntax for this and where to modify the program?

 

[Jimmypop]

Hi there

Could you explain some more... When do you want the Pic to be selected... When I test your code it works and it inserts the pic as well as selecting it... this is done with the piece of code at ...

Pic.Select

Is there any other way you are trying to select it?

 

[Tanuja888]

Hi there

Could you explain some more... When do you want the Pic to be selected... When I test your code it works and it inserts the pic as well as selecting it... this is done with the piece of code at ...

Pic.Select

Is there any other way you are trying to select it?

Yes, the code works. but I want to select the inserted image again and want to run the following with that. but this in not happening.

Pic.Select
Selection.OnAction = "macro_name"

Or can you please suggest a different code where we can select the image for some particular sheets on top cell (A1), then I can write the above syntax after that

 

[Jimmypop]

Maybe try the below... (Can also edit it to your needs perhaps?) Or maybe someone else notices how it can be done better...

Option Explicit
Sub InsertImage()
    Dim FullPathName As String
    Dim myTop       As Integer
    Dim myLeft      As Integer
    myTop = ActiveCell.Top
    myLeft = ActiveCell.Left
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"
        If .Show = -1 Then
            '''''' Store the pathname of selected image to a variable
            FullPathName = .SelectedItems(1)
            '''''' Imports image as embedded into Worksheet
            ActiveSheet.Shapes.AddPicture Filename:=FullPathName, _
            linktofile:=msoFalse, savewithdocument:=msoCTrue, _
            Left:=myLeft, _
            Top:=myTop, _
            Width:=150, _
            Height:=150
            Dim Pic As Shape
            For Each Pic In ActiveSheet.Shapes
                If (Pic.Left = myLeft And Pic.Top = myTop) Then
                    Pic.Select
                    Pic.LockAspectRatio = msoTrue
                    Selection.OnAction = "macro_name"
                End If
            Next Pic
        End If
    End With
End Sub

 

[mikerickson]

There is no need to select the picture to set the OnAction proprety

Pic.OnAction = "macro_name"

 

[Tanuja888]

Thank you @mikerickson @Jimmypop
I tried your both ways, still I am unable get what I need.

SO I wrote a seperate program where it select the picture using range, then I used my next coomand.

Sub Link_logo()
Dim pic As Picture
For Each pic In ActiveSheet.Pictures
    If Not Application.Intersect(pic.TopLeftCell, Range("A1:A2")) Is Nothing Then
        pic.Select
        Selection.OnAction = "Macro_NAme"
    End If