M
MrT
Hi,
I've just noticed that the textboxes are not resized when autosize is set to
true:
With Worksheets(1)
.Shapes.AddTextbox(msoTextOrientationHorizontal, 12, 12, 12,
12).Select
With Selection
.AutoSize = True
.Characters.Text = "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"
.Font.Name = "Arial"
.Font.Size = 8
End With
End With
This works with all previous excel versions. With Excel 2007, you'll get a
vertical textbox with a columns of Zs.
May be they've changed the way to write, from to left to right to up to down
.... just let me know.
Another thing: it is (almost) impossible to catch a shape (textbox) for
example to drag and drop it from one place to another, on a worksheet. If
anyone has a trick I'd like to know it.
Cheers,
MrT
I've just noticed that the textboxes are not resized when autosize is set to
true:
With Worksheets(1)
.Shapes.AddTextbox(msoTextOrientationHorizontal, 12, 12, 12,
12).Select
With Selection
.AutoSize = True
.Characters.Text = "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"
.Font.Name = "Arial"
.Font.Size = 8
End With
End With
This works with all previous excel versions. With Excel 2007, you'll get a
vertical textbox with a columns of Zs.
May be they've changed the way to write, from to left to right to up to down
.... just let me know.
Another thing: it is (almost) impossible to catch a shape (textbox) for
example to drag and drop it from one place to another, on a worksheet. If
anyone has a trick I'd like to know it.
Cheers,
MrT