Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
604to608
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
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Shapes in Tabellenblättern einfügen

Shapes in Tabellenblättern einfügen
27.04.2005 18:32:03
Matthias
Guten Tag Forum,
hier mein Problem:
In eine Datei mit 10 Tabellenblättern möchte ich (bei Bedarf) den Text "Entwurf" grau hinterlegt (als Ersatz für ein Wasserzeichen) in alle vorhandenen Tabellenblätter einfügen.
Den Text habe ich bislang provisorisch per Hand als Textfeld in die Blätter eingetragen und formatiert.
Bislang habe es aber nicht geschafft, den Textfeldern einen eindeutigen Namen zu verpassen um sie später "anzusprechen", d. h. ein- bzw. ausblenden zu können.
Auch zappen in der Recherche hat mich nicht so wirklich weiter gebracht....
Vielen Dank schon jetzt für Eure Unterstützung.
Matthias aus dem sonnigen FFM

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

Betreff
Datum
Anwender
Anzeige
AW: Shapes in Tabellenblättern einfügen
27.04.2005 19:55:32
Christoph
Hallo Matthias
so zB:

Option Explicit
Sub ShapeName()
Dim sh As Shape
Set sh = Sheets("Tabelle1").Shapes.AddShape( _
msoShapeRectangle, 100, 100, 100, 100)
sh.Name = "Name1"
Set sh = Nothing
End Sub
Gruß
Christoph
AW: Shapes in Tabellenblättern einfügen
27.04.2005 20:57:06
Matthias
Hallo Christoph,
vielen Dank, klappt prima.....
Matthias
Da nich' für ... (o.T.)
27.04.2005 21:04:52
Christoph
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige