Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #107972

Re: Delete Pictures in Excel 2010

Show all headers | View raw

hi Marc,

Sub DeleteAllDrawingObjects()
ActiveSheet.DrawingObjects.Delete
End Sub

isabelle

Le 2015-08-14 17:51, marc7474@excite.com a écrit :
> Hi,
>
> I have 2 macros that I use, below... that deletes all pictures form Active
> worksheet, it worked in excel 2000 but I am trying to use this in excel 2010
> & it does not delete the pictures. Does this code need to be changed in order
> to work in excel 2010 and/or what should I add or change.
>
> ----------------------------------- Sub Del_pics() Application.ScreenUpdating
> = False 'delete pictures For Each shp In ActiveSheet.Shapes If shp.Type =
> msoPicture Then shp.Delete End If Next shp End Sub
>
> ----------------------------------- Sub DeleteAllPics() Dim Pic As Object For
> Each Pic In ActiveSheet.Pictures Pic.Delete Next Pic End Sub
> -----------------------------------
>
> Thanks for any help.
>

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

Delete Pictures in Excel 2010 marc7474@excite.com - 2015-08-14 14:51 -0700
  Re: Delete Pictures in Excel 2010 Claus Busch <claus_busch@t-online.de> - 2015-08-15 08:09 +0200
  Re: Delete Pictures in Excel 2010 isabelle <i@v.invalid> - 2015-08-15 02:20 -0400

csiph-web