Automargin-Funktion in Textbox auf False setzen
16.01.2008 09:07:23
Martin
Wer kann mir helfen?
Ich möchte die Ränder einer Textbox in einem Diagramm auf 0 setzen
Textbox wird wie folgt einfüge (funktioniert)
ActiveChart.Shapes.AddShape(msoShapeHexagon, pos_x_jahr, pos_y, breite_jahr, hoehe_y).Select
Selection.Name = JZName
Selection.Characters.Text = text_jahr
Selection.AutoScaleFont = False
....
Ränder auf Null setzten (funktioniert):
Selection.ShapeRange.TextFrame.MarginLeft = 0#
Selection.ShapeRange.TextFrame.MarginRight = 0#
Selection.ShapeRange.TextFrame.MarginTop = 0#
Selection.ShapeRange.TextFrame.MarginBottom = 0#
Wenn man jetzt die Textbox anklickt, dann sieht man, dass im Reiter Abstände der innere Seitenrand immer noch auf automatisch steht. Erst wenn man das Kontrollkästchen abwählt, wird der Seitenrand wirklich auf Null gesetzt.
laut Excel-Hilfe sollte dieser Befehl helfen:
Worksheets(1).Shapes(1).TextFrame.AutoMargins = True/False
aber wenn ich
Selection.TextFrame.AutoMargins = False
eingebe dann kommt nur eine Fehlermeldung.
Was mache ich falsch?
Schonmal vielen Dank im Voraus,
Martin