Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
Da nich' für ... (o.T.)
27.04.2005 21:04:52
Christoph
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige