How to a insert new picture excel

Closed
bbtcq
Posts
1
Registration date
Thursday March 30, 2017
Status
Member
Last seen
March 30, 2017
- Updated on Mar 30, 2017 at 05:02 PM
I found the excel file under REMOVED BY MODERATOR
sample could not insert a new picture on the list.

Is it hide up the pictures?
how can I insert more pictures with the picture's name?

Option Explicit

    Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = False
        With Range("F1")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
    End Sub



thanks
bbtq