Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Shapes löschen
54 views
Skip to first unread message
Jean-Pierre Blanc
May 24, 2012, 2:25:44 AM5/24/12
to
Hallo
Kann man mit einem Befehl in einem Makro alle shapes einer Tabelle löschen?
Bis jetzt habe ich sie mühsam mit einzelne Befehle gelöscht.
Zum Beispiel: ActiveSheet.Shapes.Range(Array("AutoShape 2")).Delete
Besten Dank für die Hilfe
Gruss Jean-Pierre
Kann man mit einem Befehl in einem Makro alle shapes einer Tabelle löschen?
Bis jetzt habe ich sie mühsam mit einzelne Befehle gelöscht.
Zum Beispiel: ActiveSheet.Shapes.Range(Array("AutoShape 2")).Delete
Besten Dank für die Hilfe
Gruss Jean-Pierre
Thomas Kühn
May 24, 2012, 2:50:44 AM5/24/12
to
Hallo Jean-Pierre Blanc,
> Kann man mit einem Befehl in einem Makro alle shapes einer Tabelle löschen?
> Bis jetzt habe ich sie mühsam mit einzelne Befehle gelöscht.
Versuchs mal hiermit:
Do While ActiveSheet.Shapes.Count > 0
ActiveSheet.Shapes(0).Delete
Loop
Gruß Thomas
> Kann man mit einem Befehl in einem Makro alle shapes einer Tabelle löschen?
> Bis jetzt habe ich sie mühsam mit einzelne Befehle gelöscht.
Do While ActiveSheet.Shapes.Count > 0
ActiveSheet.Shapes(0).Delete
Loop
Gruß Thomas
Jean-Pierre Blanc
May 24, 2012, 3:39:15 AM5/24/12
to
Hallo Thomas
Vielen Dank aber es w�re zu sch�n gewesen!
ActiveSheet.Shapes(0).Delete
Auf diesen Befehl bekomme ich die folgende Fehlermeldung:
Laufzeitfehler '-2147024809 (80070057)':
Der Index in der angegebenen Sammlung ist ausserhalb des zul�ssigen
Bereichs.
Gruss Jean-Pierre
Am 24.05.2012 08:50, schrieb Thomas K�hn:
> Hallo Jean-Pierre Blanc,
>
>> Kann man mit einem Befehl in einem Makro alle shapes einer Tabelle l�schen?
>> Bis jetzt habe ich sie m�hsam mit einzelne Befehle gel�scht.
Vielen Dank aber es w�re zu sch�n gewesen!
ActiveSheet.Shapes(0).Delete
Auf diesen Befehl bekomme ich die folgende Fehlermeldung:
Laufzeitfehler '-2147024809 (80070057)':
Der Index in der angegebenen Sammlung ist ausserhalb des zul�ssigen
Bereichs.
Gruss Jean-Pierre
Am 24.05.2012 08:50, schrieb Thomas K�hn:
> Hallo Jean-Pierre Blanc,
>
>> Bis jetzt habe ich sie m�hsam mit einzelne Befehle gel�scht.
>
> Versuchs mal hiermit:
>
> Do While ActiveSheet.Shapes.Count > 0
> ActiveSheet.Shapes(0).Delete
> Loop
>
>
> Gru� Thomas
> Versuchs mal hiermit:
>
> Do While ActiveSheet.Shapes.Count > 0
> ActiveSheet.Shapes(0).Delete
> Loop
>
>
Claus Busch
May 24, 2012, 4:19:52 AM5/24/12
to
Hallo Jean Pierre,
Am Thu, 24 May 2012 09:39:15 +0200 schrieb Jean-Pierre Blanc:
> ActiveSheet.Shapes(0).Delete
eine kleine Änderung und es solle funktionieren:
With ActiveSheet
Do While .Shapes.Count > 0
.Shapes(1).Delete
Loop
End With
Mit freundlichen Grüßen
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3
Am Thu, 24 May 2012 09:39:15 +0200 schrieb Jean-Pierre Blanc:
> ActiveSheet.Shapes(0).Delete
eine kleine Änderung und es solle funktionieren:
With ActiveSheet
Do While .Shapes.Count > 0
.Shapes(1).Delete
Loop
End With
Mit freundlichen Grüßen
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3
Claus Busch
May 24, 2012, 4:33:52 AM5/24/12
to
Hallo Jean-Pierre,
oder vom letzten zum ersten Shape:
Dim i As Long
With ActiveSheet
For i = .Shapes.Count To 1 Step -1
.Shapes(i).Delete
Next
oder vom letzten zum ersten Shape:
Dim i As Long
With ActiveSheet
For i = .Shapes.Count To 1 Step -1
.Shapes(i).Delete
Next
Jean-Pierre Blanc
May 24, 2012, 12:25:52 PM5/24/12
to
Hallo Klaus
Vielen Dank! Jetzt hat es geklappt. So bin ich auch sicher, dass alle
Shapes gelöscht sind.
Schönen Abend und freundliche Grüsse
Jean-Pierre
Vielen Dank! Jetzt hat es geklappt. So bin ich auch sicher, dass alle
Shapes gelöscht sind.
Schönen Abend und freundliche Grüsse
Jean-Pierre
0 new messages