Macro displaying pictures

[Gadked]

Hi everyone,

I am really stuck and helpless facing my macro problem.
I use this code (below one) but it doesn´t read my pictures.
I inserted my pictures in excel and I display, via mathematical formulas, their name in the cell I want to see them appeared.
Does anyone know what's wrong ?
I thank you for your precious info


Sub Single_Country_Profile()
'
' Single_Country_Profile Macro
'
Worksheets("Single country profile Trd").Select

Dim oPic As Picture

Worksheets("Single country profile Trd").Pictures.Visible = False

With Range("I2")

For Each oPic In Worksheets("Single country profile Trd").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

 

[perco754]

Hello,

I tried your macro and it worked fine for me.

Are you sure that the text you enter in cell I2 is exactly the same as the name of the picture?

When you insert pictures in Excel sheet they all got new names as "Picture 1", "Picture 2" and so on. In other words, the original picture filename might have changed.

BR,
perco