M
Mike Garcia
¡Hello!
I am quite new into VBA, and I need some help from knowledgeable users.
My Question, before I start explaining is:
¿How can I insert multiple conditional images in the same spreadsheet, that
react to the value in different cells?
Explanation:
I have a small Excel File, used to compare different features between two
products, in two columns. You pick the product in a Validated Cell (drop down
box) on the top of the column, and all the information about that product is
filled down using conditional formatting. I inserted function to also display
a pic of the product in that column, using the code:
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("B8")
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
It worked quite well with one image...But, when I tried to apply the a
second code for the second product column in the same Sheet, I found out that
the first code (Set to Me.Pictures.Visible=False) hid the pictures that the
second code attempted to display. (Or that is my guess).
¿How can I insert multiple conditional images in the same spreadsheet, that
react to the value in different cells?
¡Any help would be greatly appreciated!
I am quite new into VBA, and I need some help from knowledgeable users.
My Question, before I start explaining is:
¿How can I insert multiple conditional images in the same spreadsheet, that
react to the value in different cells?
Explanation:
I have a small Excel File, used to compare different features between two
products, in two columns. You pick the product in a Validated Cell (drop down
box) on the top of the column, and all the information about that product is
filled down using conditional formatting. I inserted function to also display
a pic of the product in that column, using the code:
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("B8")
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
It worked quite well with one image...But, when I tried to apply the a
second code for the second product column in the same Sheet, I found out that
the first code (Set to Me.Pictures.Visible=False) hid the pictures that the
second code attempted to display. (Or that is my guess).
¿How can I insert multiple conditional images in the same spreadsheet, that
react to the value in different cells?
¡Any help would be greatly appreciated!