Select/Selection vermeiden

Sub Makro1() Dim otext As Shape Set otext = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 35.25, 72#, _ 168.75, 67.5) otext.Select Selection.Characters.Text = "Hallo" otext.Select Selection.ShapeRange.IncrementLeft 414# Selection.ShapeRange.IncrementTop 36.75 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tt() Dim ws As Worksheet Set ws = ActiveSheet With ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 449.25, 108.75, 168.75, 67.5) .TextFrame.Characters.Text = "Hello world" End With Set ws = Nothing End Sub

Hi Julia,
entweder absolut ie Werte vorgeben wie in bewegen(), oder relativ wie in bewegen2().


Sub tt()
Dim ws As Worksheet
Set ws = ActiveSheet
With ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 449.25, 108.75, 168.75, 67.5)
.Name = "MeineTBox1"
.TextFrame.Characters.Text = "Hello world"
End With
Set ws = Nothing
End Sub


Sub bewegen()
Dim ws As Worksheet
Set ws = ActiveSheet
With ws.Shapes("MeineTBox1")
.Top = 0
.Left = 0
End With
Set ws = Nothing
End Sub


Sub bewegen2()
Dim ws As Worksheet
Set ws = ActiveSheet
With ws.Shapes("MeineTBox1")
.IncrementLeft 414#
End With
Set ws = Nothing
End Sub

Gruß
Reinhard

Sub Makro01() Dim otext As Shape Set otext = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 35.25, 72#, _ 168.75, 67.5) otext.OLEFormat.Object.Text = "Hallo" otext.IncrementLeft 414# otext.IncrementTop 36.75 End Sub

Hallo Udo,
ich freue mich, dass Du mir bei meinen "Hausaufgaben" noch immer weiter helfen möchtest.
Mein Ziel ist es, einen Text möglichst nahe bei einem Schnittpunkt zweier Geraden "abzusetzen".
Liegt der Schnittpunkt der Geraden, die per VBA erzeugt werden (Gitternetzlinien sind ausgeschaltet) z.B. in P(250,300), so soll eben möglichst in der Nähe dieses Punktes ein Text stehen z.B. der Text P(250,300).
Nach langem Probieren kam ich auf die Textbox, die unabhängig vom Zellenlayout plaziert werden kann. Inzwischen sehe ich jedoch, dass dieser Ansatz wohl auch nicht in Frage kommt. Hast Du für diesen Wunsch eine Lösung?
Bei der Lösung der Gesamtaufgabe ist eine weitere Detailaufgabe zu knacken, der ich mich aber erst dann zuwenden möchte, wenn die Beschriftung der ermittelten Punkte einwandfrei klappt.
Über einen Lösungsansatz würde ich mich sehr freuen.
Gruß
Julia

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Select/Selection vermeiden

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread