Textfeld oder Rechteck am Tabellenblatt einfügen

28/05/2008 - 17:46 von Peter KUTTNIG | Report spam
Hallo,
ich verwende Office XP + SP3 und möchte ins
Tabellenblatt ein Rechteck oder ein Textfeld einfügen,
dann einen Text einfügen und dem
Text mit der Eigenschaft
.MarginLeft = 5.67
.MarginRight = 5.67
.MarginTop = 5.57
.MarginBottom = 5.67
einen Abstand von 0,2 cm zum Textfeld-Rand verpassen.

Habe den ganzen Vorgang mit dem Makrorecorder aufgezeichnet.

Sub Makro1()
ActiveSheet.Shapes.AddShape msoShapeRectangle, _
6, 1387.8, 152.4, 82.2 'links,oben,breit,hoch
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.TextFrame.MarginLeft = 5.67
Selection.ShapeRange.TextFrame.MarginRight = 5.67
Selection.ShapeRange.TextFrame.MarginTop = 5.67
Selection.ShapeRange.TextFrame.MarginBottom = 5.67
Range("A105").Select
End Sub

Doch wenn ich die aufgezeichnete SUB starte,
wird der gewünschte Abstand nicht hergestellt.

Wer ist so nett und hilft mir.

MfG
Peter
 

Lesen sie die antworten

#1 Claus Busch
28/05/2008 - 18:45 | Warnen spam
Hallo Peter,

Am Wed, 28 May 2008 17:46:47 +0200 schrieb Peter KUTTNIG:

ich verwende Office XP + SP3 und möchte ins
Tabellenblatt ein Rechteck oder ein Textfeld einfügen,
dann einen Text einfügen und dem
Text mit der Eigenschaft
.MarginLeft = 5.67
.MarginRight = 5.67
.MarginTop = 5.57
.MarginBottom = 5.67
einen Abstand von 0,2 cm zum Textfeld-Rand verpassen.



probiere es mal so:

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
6, 1387.8, 152.4, 82.2).TextFrame
.Characters.Text = "Hier kommt mein Text"
.MarginBottom = 5.67
.MarginLeft = 5.67
.MarginRight = 5.67
.MarginTop = 5.67
End With


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen