Bilder aus einem Tabellenblatt löschen mittels VBA
Guido
Ich möchte per VBA in einem Tabellenblatt vorhandene Grafiken (jpgs)
löschen. Dazu habe ich zwei Fragen:
- Kann ich Grafiken gezielt ansteuern? Gibt es da irgendwo sowas wie
einen Index?
- Mit welchem Befehl selektiere ich die Grafik und lösche sie dann???
Gruß,
Guido
Tim Brandt
Grafiken sind Objekte unter 'Shapes'. Je nachdem, ob Du den Grafiken Namen
gegeben hast, kannst Du sie dann auch genau ansprechen. (bspw
ActiveSheet.Shapes("Picture 1")) Mit .delete werden dann die entsprechenden
Grafiken gelöscht.
Für alle Grafiken dann bspw:
sub Loeschen
dim shp as shape
for each shp in activesheet
shp.delete
next shp
end sub
--
Gruß aus Brandenburg
Tim Brandt
____________________
Excel 2000 SR-1
"Guido" <guido.ne...@eds-midmarket.de> schrieb im Newsbeitrag
news:58fa5615.03031...@posting.google.com...
Bernd Held
fehlt da nicht was?
Für alle Grafiken dann bspw:
sub Loeschen
dim shp as shape
for each shp in activesheet
shp.delete
next shp
end sub
Für alle Grafiken dann bspw:
sub Loeschen
dim shp as shape
for each shp in activesheet.shapes
shp.delete
next shp
end sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Quellcodes, Tipps&Tricks und "Excel-VBA in 21 Tagen(mit Leseprobe PDF)"
unter http://www.held-office.de
"Tim Brandt" <ichbi...@web.de> schrieb im Newsbeitrag
news:u9hcLyH7...@TK2MSFTNGP12.phx.gbl...
Tim Brandt
ja, Herr Brandt, das kommt davon, wenn man sich nicht daran hält, was man
ein paar Zeilen vorher noch geschrieben hat, und einfach drauflos tippt,
ohne aus der Codesammlung zu kopieren :-)
--
Gruß aus Brandenburg
Tim Brandt
____________________
Excel 2000 SR-1
"Bernd Held" <held-...@t-online.de> schrieb im Newsbeitrag
news:b54iip$3dp$06$1...@news.t-online.com...
Guido Neugebauer
das fehlende .shapes hat der Herr Neugebauer (moi) nach fünf Minuten basteln
und blättern im VBA-Buch dann auch gefunden. Läuft übrigens prima.
Danke nochmal!!!
Gruß,
Guido Neugebauer