Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

                    

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige