Textboxen per VBA vergrößern und verkleinern

[Alexander Lorenz]

Hi Gruppe,
ich habe auf ein Diagramm Textboxen plaziert.
Diese möchte ich per Code dynamisch vergrößern bzg. verkleinern, um den
darin enthaltenen Wert anzuzeigen bzg. nicht anzuzeigen.
Hier mal mein code:

'alle shapes verkleinern
With ActiveChart
For i = 2 To 13 Step 1
.Shapes("Text Box " & i - 1).Select
Selection.ShapeRange.ScaleHeight 0.01, msoFalse, msoScaleFromTopLeft
Next i
End With

'vergrößern
With ActiveChart
'active shape wieder vergrößern und Wert zuweisen
.Shapes("Text Box " & i - 1).Select
Selection.ShapeRange.ScaleHeight 10, msoFalse, msoScaleFromTopLeft
Selection.Characters.Text = Hilfs
End With

Verkleinern klappt nur das wieder Großziehen haut nicht hin. Hat jmd. eine
Idee, woran das liegen könnte?
Evtl. gehts ja das ganze auch einfacher wenn ich nur die Textbox.visible
=true bzw. false setzen könnte.
Leider gibts das attribut nicht.

[Stefan Onken]

hallo Alexander,
bei dem vergrößern-Makro fehlt die For-Next-Schleife.

Es gäbe noch eine andere Möglichkeit, in dem du in dem Diagramm (evtl in
einer zusätzlichen Datenreihe) die Datenbeschriftung aktivierst. Diese
Datenbeschriftung kann man so anlegen, dass sie aus anderen Zellen
stammt als aus denen, die für das Diagramm notwendig sind
(linksklick auf einer der Beschriftungen, kurz warten, nochmals
linksklick. Es ist nun eine einzelne Beschriftung aktiviert. In die
Bearbeitungsleiste schreibst du dann zB
=Tabelle1!$B$1 )
Bei einer Änderung in den Zellen wird dann auch die Beschriftung
dynamisch übernommen.

Gruß
stefan

Post by Alexander Lorenz
Hi Gruppe,
ich habe auf ein Diagramm Textboxen plaziert.
Diese möchte ich per Code dynamisch vergrößern bzg. verkleinern, um den
darin enthaltenen Wert anzuzeigen bzg. nicht anzuzeigen.
'alle shapes verkleinern
With ActiveChart
For i = 2 To 13 Step 1
.Shapes("Text Box " & i - 1).Select
Selection.ShapeRange.ScaleHeight 0.01, msoFalse,
msoScaleFromTopLeft
Next i
End With
'vergrößern
With ActiveChart
'active shape wieder vergrößern und Wert zuweisen
.Shapes("Text Box " & i - 1).Select
Selection.ShapeRange.ScaleHeight 10, msoFalse,
msoScaleFromTopLeft
Selection.Characters.Text = Hilfs
End With
Verkleinern klappt nur das wieder Großziehen haut nicht hin. Hat jmd. eine
Idee, woran das liegen könnte?
Evtl. gehts ja das ganze auch einfacher wenn ich nur die
Textbox.visible
=true bzw. false setzen könnte.
Leider gibts das attribut nicht.