Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drawn Objects Q
I have the code below which deletes "Objects" in my sheet, my problem is that it deletes a cell in Column A and moves all cells up one space, I don't know why this is occurring
When I try and select "Objects" within Find-Go to Special-Objects, it says there is none to be found and that is before I run the code below Hope someone can advise Thanks Sub ClearMacroButtons() Application.ScreenUpdating = False Sheets("Figures").Visible = True Sheets("Figures").Select ActiveSheet.Unprotect Password:="1234" ActiveSheet.DrawingObjects.Select Selection.Delete Range("A1").Select ActiveSheet.Protect Password:="1234" End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drawn Objects Q
Try below and see what happens ..
Option Explicit Sub FormatAllCallouts() Dim oShp As Shape Dim oCF As CalloutFormat On Error GoTo MyExit Sheets("Figures").Visible = True Sheets("Figures").Select ActiveSheet.Unprotect Password:="1234" For Each oShp In ActiveSheet.Shapes oShp.Select Selection.Delete Next Range("A1").Select ActiveSheet.Protect Password:="1234" Exit Sub MyExit: MsgBox "No shapes found!!"" End Sub On Tuesday, 11 February 2014 20:12:42 UTC+5:30, wrote: I have the code below which deletes "Objects" in my sheet, my problem is that it deletes a cell in Column A and moves all cells up one space, I don't know why this is occurring When I try and select "Objects" within Find-Go to Special-Objects, it says there is none to be found and that is before I run the code below Hope someone can advise Thanks Sub ClearMacroButtons() Application.ScreenUpdating = False Sheets("Figures").Visible = True Sheets("Figures").Select ActiveSheet.Unprotect Password:="1234" ActiveSheet.DrawingObjects.Select Selection.Delete Range("A1").Select ActiveSheet.Protect Password:="1234" End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drawn Objects Q
On Friday, February 14, 2014 6:58:02 PM UTC, Abhijeet Gudur wrote:
Try below and see what happens .. Option Explicit Sub FormatAllCallouts() Dim oShp As Shape Dim oCF As CalloutFormat On Error GoTo MyExit Sheets("Figures").Visible = True Sheets("Figures").Select ActiveSheet.Unprotect Password:="1234" For Each oShp In ActiveSheet.Shapes oShp.Select Selection.Delete Next Range("A1").Select ActiveSheet.Protect Password:="1234" Exit Sub MyExit: MsgBox "No shapes found!!"" End Sub On Tuesday, 11 February 2014 20:12:42 UTC+5:30, wrote: I have the code below which deletes "Objects" in my sheet, my problem is that it deletes a cell in Column A and moves all cells up one space, I don't know why this is occurring When I try and select "Objects" within Find-Go to Special-Objects, it says there is none to be found and that is before I run the code below Hope someone can advise Thanks Sub ClearMacroButtons() Application.ScreenUpdating = False Sheets("Figures").Visible = True Sheets("Figures").Select ActiveSheet.Unprotect Password:="1234" ActiveSheet.DrawingObjects.Select Selection.Delete Range("A1").Select ActiveSheet.Protect Password:="1234" End Sub Your code returns "no shapes found", but why then in my original code, if there is no objects found it deletes a cell in Column A and moves all cells up one space My code is wrong, but I don't know why |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel2007 objects drawn on charts move in print preview | Charts and Charting in Excel | |||
How does one select multiple drawn objects in Excel 2007? | Excel Discussion (Misc queries) | |||
Using Macros to manipulate drawn objects | Excel Discussion (Misc queries) | |||
text boxes drawn objects do not appear on chart | Charts and Charting in Excel | |||
Copy Excel Chart (including drawn objects) into Word | Charts and Charting in Excel |