|
Delete Picture Objects
How can I select all the picture objects in my excel file and delete them?
I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
Hi Mike
All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
Only pictures.
Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
Try this one
Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
It worked on a picture I've inserted into the execl spreadsheet but not on
what I pasted into the spreadsheet. I'm pasting from the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a different type? "Ron de Bruin" wrote in message ... Try this one Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
Do you have other controls on that sheet Mike that you want to keep ?
Forms controls or controltoolbox controls ? -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... It worked on a picture I've inserted into the execl spreadsheet but not on what I pasted into the spreadsheet. I'm pasting from the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a different type? "Ron de Bruin" wrote in message ... Try this one Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
No.
"Ron de Bruin" wrote in message ... Do you have other controls on that sheet Mike that you want to keep ? Forms controls or controltoolbox controls ? -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... It worked on a picture I've inserted into the execl spreadsheet but not on what I pasted into the spreadsheet. I'm pasting from the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a different type? "Ron de Bruin" wrote in message ... Try this one Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
Then use this Mike
Sub Shapes1() 'Delete all Objects except Comments On Error Resume Next ActiveSheet.DrawingObjects.Visible = True ActiveSheet.DrawingObjects.Delete On Error GoTo 0 End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... No. "Ron de Bruin" wrote in message ... Do you have other controls on that sheet Mike that you want to keep ? Forms controls or controltoolbox controls ? -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... It worked on a picture I've inserted into the execl spreadsheet but not on what I pasted into the spreadsheet. I'm pasting from the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a different type? "Ron de Bruin" wrote in message ... Try this one Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
I took out the If statement and just left myshape.delete
Thanks so much for your help. Mike "Ron de Bruin" wrote in message ... Do you have other controls on that sheet Mike that you want to keep ? Forms controls or controltoolbox controls ? -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... It worked on a picture I've inserted into the execl spreadsheet but not on what I pasted into the spreadsheet. I'm pasting from the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a different type? "Ron de Bruin" wrote in message ... Try this one Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
That works better.
Thanks again. "Ron de Bruin" wrote in message ... Then use this Mike Sub Shapes1() 'Delete all Objects except Comments On Error Resume Next ActiveSheet.DrawingObjects.Visible = True ActiveSheet.DrawingObjects.Delete On Error GoTo 0 End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... No. "Ron de Bruin" wrote in message ... Do you have other controls on that sheet Mike that you want to keep ? Forms controls or controltoolbox controls ? -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... It worked on a picture I've inserted into the execl spreadsheet but not on what I pasted into the spreadsheet. I'm pasting from the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a different type? "Ron de Bruin" wrote in message ... Try this one Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
Delete Picture Objects
Don't do that Mike
Read about the bugs when you do that on the webpage -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... I took out the If statement and just left myshape.delete Thanks so much for your help. Mike "Ron de Bruin" wrote in message ... Do you have other controls on that sheet Mike that you want to keep ? Forms controls or controltoolbox controls ? -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... It worked on a picture I've inserted into the execl spreadsheet but not on what I pasted into the spreadsheet. I'm pasting from the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a different type? "Ron de Bruin" wrote in message ... Try this one Sub Shapes2() 'Loop through the Shapes collection and use the Type number of the control Dim myshape As Shape For Each myshape In ActiveSheet.Shapes ' pictures If myshape.Type = 13 Then myshape.Delete ' You can also use myshape.Visible = False Next myshape End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... Only pictures. Thanks "Ron de Bruin" wrote in message ... Hi Mike All objects or only Pictures ? See this page for example code http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "The Other Mike" wrote in message ... How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that doesn't work. Thanks Mike |
| All times are GMT +1. The time now is 03:00 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com