View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
glenn glenn is offline
external usenet poster
 
Posts: 122
Default PLACING PIC IN WORKSHEET USING MACRO

I have built a worksheet with the following macro to insert a picture if a
certain cell is true. My question is that:
I have three more pics to add if other individual cells are true. How do i
code this? The following is the code that David gave to me and it works fine
for that one picture. But two or more pictures for different cells??????
Thanks,
GlennOption Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("I2")
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