vba newbie need help.
 

hi according to the below link method, how can i use the picture again for
another cell range?
can some kind soul tell me how to write the programming. thanks

http://www.mcgimpsey.com/excel/lookuppics.html


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

vba newbie need help.
 

Maybe...

Option Explicit
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Dim myCell As Range
Dim myRng As Range

Me.Pictures.Visible = False

'what cells contain the names of the pictures that should be visible?
Set myRng = Me.Range("F1,h9")

For Each myCell In myRng.Cells
With myCell
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
Next myCell
End Sub



Oligo wrote:

hi according to the below link method, how can i use the picture again for
another cell range?
can some kind soul tell me how to write the programming. thanks

http://www.mcgimpsey.com/excel/lookuppics.html

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

--

Dave Peterson

vba newbie need help.
 

thanks dave. it works and solve my problem. thanks so much even though im not
sure about the program hehe.

"Dave Peterson" wrote:

Maybe...

Option Explicit
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Dim myCell As Range
Dim myRng As Range

Me.Pictures.Visible = False

'what cells contain the names of the pictures that should be visible?
Set myRng = Me.Range("F1,h9")

For Each myCell In myRng.Cells
With myCell
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
Next myCell
End Sub



Oligo wrote:

hi according to the below link method, how can i use the picture again for
another cell range?
can some kind soul tell me how to write the programming. thanks

http://www.mcgimpsey.com/excel/lookuppics.html

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

--

Dave Peterson