If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
JB Bates' Runtime Error 1004 problem
I am using Google Groups to view this forum and my three attempts at
responding to this post... http://groups.google.com.au/group/mi...c59d83d9?hl=en keep on disappearing. I've not had this happen before. I have seen the Pick a Pic code stopped by this error several times before. It usually doesn't happen until after a certain number of pictures that it has to process. Sufferers in the past have been happy with my solution, so here it is again. Don't dimension the oPic object as a Picture, dimension it as a Shape. This does mean adding an extra loop so that only Pictures are rendered invisible instead of all the Shapes... Private Sub Worksheet_Calculate() Dim oPic As Shape For Each oPic In Me.Shapes If oPic.Type = msoPicture Then oPic.Visible = False End If Next oPic With Range("ad1") For Each oPic In Me.Shapes If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With End Sub Ken Johnson |
Thread Tools | |
Display Modes | |
|
|