Ohne Select

• Ohne Select von A Herden vom 06.11.2003 18:33:37
  • AW: Ohne Select - habs gefunden - von A herden am 06.11.2003 18:41:57
  • AW: Ohne Select - von K.Rola am 06.11.2003 18:44:14

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

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

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

Excel-Beispiele zum Thema " Ohne Select"
Focus und Selection zwischen zwei TextBoxes wechseln	Beispiele zum Einsatz des SelectionChange-Ereignisses