Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Smilies (Shapes) beim Aktuallisieren vorab löschen

Forumthread: Smilies (Shapes) beim Aktuallisieren vorab löschen

Smilies (Shapes) beim Aktuallisieren vorab löschen
26.11.2003 19:22:37
Urban
Hallo miteinander,

ich habe spezifische Kennzahlen mit Smilies visuallisiert und zur Erstellung folgendes Makro von Euch erhalten:

Sub Smilie()
Set Smilie1 = ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, Left, Top, 18.75, 18.75)
End Sub
Nun möchte ich, dass beim Aktuallisieren via einer Befehlsschaltfläche alle
bisherigen Smilies zuerst gelöscht werden. Ich mache da was falsch, da es mir
auch immer die Befehlsschaltfläche selbst löscht.
Wie muss ich das anpacken. Besten Dank schon jetzt für Eure Hilfe.
Gruss, Urban

                    
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Smilies (Shapes) beim Aktuallisieren vorab löschen
26.11.2003 19:53:10
K.Rola
Hallo,


Sub Smilies_weg()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.AutoShapeType = 17 Then Sh.Delete
Next
End Sub


Gruß K.Rola
AW: Smilies (Shapes) beim Aktuallisieren vorab löschen
27.11.2003 08:03:17
Urban
Hallo K.Rola,

hab Dein Makro soeben eingebaut und ausprobiert. Funktioniert bestens. Hatte halt keine Ahnung, dass man dies via "AutoShapeType = 17" lösen müsste.

Besten Dank nochmals und Dir einen schönen Tag
Gruss, Urban
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige