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


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

Re: Delete Pictures in Excel 2010

From Claus Busch <claus_busch@t-online.de>
Newsgroups microsoft.public.excel.programming
Subject Re: Delete Pictures in Excel 2010
Date 2015-08-15 08:09 +0200
Organization A noiseless patient Spider
Message-ID <mqmkv2$n2o$1@dont-email.me> (permalink)
References <721c3c8c-43ce-4ca3-8bc8-65289c14f633@googlegroups.com>

Show all headers | View raw


Hi Marc,

Am Fri, 14 Aug 2015 14:51:05 -0700 (PDT) schrieb marc7474@excite.com:

> 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. 

if I insert pictures they get the name "Graphic" and an index.
Try:

Sub Del_pics()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
    If Left(shp.Name, 7) = "Graphic" Then
        shp.Delete
    End If
Next
End Sub


Regards
Claus B.
-- 
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Back to microsoft.public.excel.programming | Previous | NextPrevious in thread | Next 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