Hiding Pictures "Run-time error '1004'"

T

truthband

In my spreadsheet I am hiding or unhiding grouped drawing images based on a
cell value. The vba code works fine until I get up to a certain amount of
images. Is there a limit on the number of images that can be hidden or is
something else wrong? Below is the code. Like I stated above, the code
works fine until I get about 45 or more images in the sheet. Thanks in
advance.

Private Sub Worksheet_Calculate()
Dim oPic As Object
Dim AmpRange As Range
Sheet13.DrawingObjects.Visible = False
Sheet13.Pictures.Visible = False
Sheet13.Shapes("Picture 1").Visible = True
Sheet13.Shapes("Picture 2").Visible = True
For Each AmpRange In Sheet13.Range("D12:I12")
With AmpRange
For Each oPic In Sheet13.Shapes
If oPic.Name = .Text Then
oPic.Visible = True
Exit For
End If
Next oPic
End With
Next AmpRange
End Sub
 
D

Dave Peterson

I've seen this with lots of pictures, too.

I just loop to hide them:

dim pic as picture
....
for each pic in me.pictures
pic.visible = false
next pic
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top