Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shape loeschen nach Klick darauf

Shape loeschen nach Klick darauf
04.11.2003 17:17:25
Christian
Hallo,

ich habe hier ein Problem, fuer das ich leider keine Loesung gefunden habe. Ich moechte ein Shape welches ich per Makro erstellen mit einem Makro loeschen. Dabei soll der User mit dem Klick auf das Shape bestimmen ob und wann es geloescht wird.

Villeicht hat jemand von euch eine Idee.

Vielen Dank, Christian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shape loeschen nach Klick darauf
04.11.2003 18:05:15
TE
Na das Shape hast Du doch beim erstellen benannt und be-makro-t:

Bsp: Schaltfläche heisst hier "SFAuswertung" und führt beim Klicken das Makro "Auswerten" aus.

ActiveSheet.Buttons.Add(500, 300, 160, 26).Select
Selection.OnAction = "Auswerten"
Selection.Name = "SFAuswertung"
Selection.Characters.Text = "in AUSWERTUNG übertragen"
With Selection.Font
.Name = "System"
.FontStyle = "Standard"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


Im Makro auswerten kannst Du nun (u.a.) diese Schaltfläche wieder löschen:

ActiveSheet.Shapes("SFAuswertung").Cut
Application.CutCopyMode = False

Gruss Thomas
Anzeige
Shape loeschen ohne laufende Nummer/Name zu kennen
04.11.2003 18:52:19
ChBo
Hallo Danke fuer die Antwort.

Deine Loesung funktioniert in deinem Fall, aber leider nicht in meinem. Deshalb schildere ich mein Problem ausfuehrlicher.

Aber ich habe ein Shape, dass der Nutzer nach persoenlichem Belieben auch mehrmals in das Sheet einfuegen kann. Dazu nutze ich folgende Zeilen (wird dann immer relativ zu der aktuell ausgewaehlten Zeile eingefuegt.

Dadurch bekommen die Shapes (kleine rote Punkte) immer neue (interne) Namen. Wenn jetzt ein Nutzer einen der Punkte loeschen moechte, dann soll er einfach auf den Punkt klicken. Das genau ist mein Problem. Ich weiss aber genau dann nicht, wie ich das spezielle Shape anwaehlen soll.

ICh sehe 2 Moeglichkeiten:
1. ich kann feststellen, von welchem Shape das Makro gestartet wurde
2. ich kann beim erstellen (Kopieren) automatisch ein "angepasstes"(mit dem Namen oder der laufenden Nummer versehenen) Makro mit dem Shape verbinden. (mir fehlt allerdings schon eine Moeglichkeit, den Namen eines Shapes auszulesen)

ActiveSheet.Shapes(33).Copy
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -95.25 ' positionierung
Selection.ShapeRange.IncrementTop -11.25 ' positionierung


Vielen Dank fuer die Hilfe!

Christian
Anzeige
falschen Name eingegeben ;) Sorry (o.T)
04.11.2003 18:57:04
Christian
cd

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige