From your code, you are hiding all pictures. Then making the one that
matches the text visible and moving it over cell B41.
So if you want more pictures visible, you need to test for in your For/Next
loop and set them to .visible=true
Where is you list of pictures to make visible ?
NickHK
"petterss" <
[email protected]> wrote in
message news:
[email protected]...
>
> Hi!
> Here is same code I have wrote:
>
> Private Sub Worksheet_Calculate()
> Dim oPic As Picture
> Me.Pictures.Visible = False
> With Range("B41")
> 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
>
> Now all the pictures in the document get invisible!
> I want to declear which picture that should be visible or not. Ex. I
> want to make picture 1-11 visible = False. How?
> How do I decler that a specific picture should be visible, "Picture
> 101.Visible = True"?
>
> Thanks?
>
>
> --
> petterss
> ------------------------------------------------------------------------
> petterss's Profile:
http://www.excelforum.com/member.php...o&userid=36354
> View this thread: http://www.excelforum.com/showthread...hreadid=570683
>
Bookmarks