sunshine076
Registered User.
- Local time
- Today, 06:47
- Joined
- Apr 6, 2009
- Messages
- 160
I pulled a piece of code from the internet and works well. however, I found out that when you import a picture that isn't linked to the specific cell it hides. Is there anyway to stop this action but keep the others hidden?
Option Explicit
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("O3")
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
I have attached a copy of the file that I am trying to change
Option Explicit
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("O3")
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
I have attached a copy of the file that I am trying to change
Attachments
Last edited: