Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why can't I delete this shape now?
I have been using the following code to delete a shape for the the past
several years. Option Explicit Sub ClearPicture() 'DELETE IMAGE MKTPKG Dim X As Shape On Error Resume Next Set X = Sheets("MktPkg").Shapes(1) If Err = 0 Then X.Delete End If End Sub In fact, it still works on one version of my software, but on the other it mysteriously stopped working. The shape gets pasted to the worksheet just fine, but now, for some reason, it won't delete. I've tried cleaning my code with Rob Bovey's code cleaner, but it still doesn't execute. When I remove the On Error Resume Next, the message says Application-defined or application-defined error. What happened? Even for all the changes I've been making to the program, I never touched this. Please help if you can. Thank you. Jim Kobzeff |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why can't I delete this shape now?
Hi Jim,
A protected worksheet could cause that error. Is that the problem ? Regards, Vic Eldridge "JK" wrote: I have been using the following code to delete a shape for the the past several years. Option Explicit Sub ClearPicture() 'DELETE IMAGE MKTPKG Dim X As Shape On Error Resume Next Set X = Sheets("MktPkg").Shapes(1) If Err = 0 Then X.Delete End If End Sub In fact, it still works on one version of my software, but on the other it mysteriously stopped working. The shape gets pasted to the worksheet just fine, but now, for some reason, it won't delete. I've tried cleaning my code with Rob Bovey's code cleaner, but it still doesn't execute. When I remove the On Error Resume Next, the message says Application-defined or application-defined error. What happened? Even for all the changes I've been making to the program, I never touched this. Please help if you can. Thank you. Jim Kobzeff |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why can't I delete this shape now?
you may have the sheet protected
the code is tidied up... Sub ClearPicture() With ActiveSheet.Shapes If .Count 0 Then .Item(1).Delete End If End With End Sub "JK" wrote: I have been using the following code to delete a shape for the the past several years. Option Explicit Sub ClearPicture() 'DELETE IMAGE MKTPKG Dim X As Shape On Error Resume Next Set X = Sheets("MktPkg").Shapes(1) If Err = 0 Then X.Delete End If End Sub In fact, it still works on one version of my software, but on the other it mysteriously stopped working. The shape gets pasted to the worksheet just fine, but now, for some reason, it won't delete. I've tried cleaning my code with Rob Bovey's code cleaner, but it still doesn't execute. When I remove the On Error Resume Next, the message says Application-defined or application-defined error. What happened? Even for all the changes I've been making to the program, I never touched this. Please help if you can. Thank you. Jim Kobzeff |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why can't I delete this shape now?
maybe a protected sheet, also using the err object as a control is possibly
a problem. On Error Resume Next clears the error stack, so if your If err statement is dealt with differently. What versions of Excel are you testing in? -- Cheers Nigel "JK" wrote in message news:Le_De.11686$JJ.9892@trnddc09... I have been using the following code to delete a shape for the the past several years. Option Explicit Sub ClearPicture() 'DELETE IMAGE MKTPKG Dim X As Shape On Error Resume Next Set X = Sheets("MktPkg").Shapes(1) If Err = 0 Then X.Delete End If End Sub In fact, it still works on one version of my software, but on the other it mysteriously stopped working. The shape gets pasted to the worksheet just fine, but now, for some reason, it won't delete. I've tried cleaning my code with Rob Bovey's code cleaner, but it still doesn't execute. When I remove the On Error Resume Next, the message says Application-defined or application-defined error. What happened? Even for all the changes I've been making to the program, I never touched this. Please help if you can. Thank you. Jim Kobzeff |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why can't I delete this shape now?
Thank you group. A combination of adding Worksheet.Unprotect and Patrick's
tidied up procedure, got it working. "JK" wrote in message news:Le_De.11686$JJ.9892@trnddc09... I have been using the following code to delete a shape for the the past several years. Option Explicit Sub ClearPicture() 'DELETE IMAGE MKTPKG Dim X As Shape On Error Resume Next Set X = Sheets("MktPkg").Shapes(1) If Err = 0 Then X.Delete End If End Sub In fact, it still works on one version of my software, but on the other it mysteriously stopped working. The shape gets pasted to the worksheet just fine, but now, for some reason, it won't delete. I've tried cleaning my code with Rob Bovey's code cleaner, but it still doesn't execute. When I remove the On Error Resume Next, the message says Application-defined or application-defined error. What happened? Even for all the changes I've been making to the program, I never touched this. Please help if you can. Thank you. Jim Kobzeff |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
my curser changed from arrow shape to a cross shape???? | New Users to Excel | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming | |||
Deleting a shape and the cell contents the shape is in. | Excel Programming | |||
Deleting a shape and the cell contents the shape is in. | Excel Programming | |||
Shape connectors | Excel Programming |