Ohne Select

Bild

Betrifft: Ohne Select
von: A Herden
Geschrieben am: 06.11.2003 18:33:37

Hallo Select-Hasser,

Ich habe ein Textfeld und möchte die Linie drumrum an- und abschalten.
Das gelingt mir auch, nachdem ich das Feld mit Select angefasst habe, aber sonst nicht. Also

Selection.ShapeRange.Line.Visible=msoTrue

funktioniert, aber nicht

sheets(1).shapes("txtData").ShapeRange.Line.Visible=msoTrue

Das muss doch ohne Select gehen.


Ich Grüße Euch

Angelika

Bild


Betrifft: AW: Ohne Select - habs gefunden
von: A herden
Geschrieben am: 06.11.2003 18:41:57

Hallo,

sheets(1).Shapes.Range("txtData").Line.Visible=msoFalse

tut das gewünschte.

Gruß ud Lob an alle Helfer

Angelika


Bild


Betrifft: AW: Ohne Select
von: K.Rola
Geschrieben am: 06.11.2003 18:44:14

Hallo,

Option Explicit

Sub Shape()
Dim t As Object
Set t = ActiveSheet.Shapes("Text Box 1")
t.Line.Visible = msoTrue
End Sub


Gruß K.Rola


Bild

Beiträge aus den Excel-Beispielen zum Thema " Ohne Select"