Supportnet / Forum / Textverarbeitung
Zentrieren in Autoformen
Frage
Hallo zusammen
Ich habe ein Flußdiagramm in Word erstellt und dazu verschiedene Formen aus der Autoformleiste genommen. Wenn ich jetzt in die Formen einen Text einfüge kan ich sie zwar Horizuntal zentrieren aber nicht vertikal. Bei Excel geht das it der rechten Maustaste bei Word leider nicht. Kann mir da jemand helfen?
1000 Dank, Jens
Antwort 1 von Lisa2004
das geht so nicht, am besten über eine einzellige Tabelle, die Du in das Textfeld einfügst oder Du gehst über Format - Absatz - Abstand oben und versuchst es einzustellen.
Gruß Lisa
Gruß Lisa
Antwort 2 von classic04
Aha das ist aber schade!
das ist dann eine richtige Spielerei bis das Passt. Ich hab rauten, Kreise und Parallelogramme.
Ich hab das Diagramm schon in Excel ge´macht aber wenn ich's in Word kopiere wird alles verschoben und die linien der Tabelle lassen sich nicht entfernen. Hast du dazu ne Idee?
Gruß Jens
das ist dann eine richtige Spielerei bis das Passt. Ich hab rauten, Kreise und Parallelogramme.
Ich hab das Diagramm schon in Excel ge´macht aber wenn ich's in Word kopiere wird alles verschoben und die linien der Tabelle lassen sich nicht entfernen. Hast du dazu ne Idee?
Gruß Jens
Antwort 3 von Maschi63
Das vertikale Zentrieren geht in Word ebenfalls - und zwar so:
Du zeigst mit dem Mauspfeil auf den Rand des Flussdiagramms bis das Doppelkreuz erscheint --> rechte Maustaste anklicken --> AutoForm formatieren --> Registerkarte "Layout" --> Schaltfläche "Weitere" --> Registerkarte "Bildposition" --> dort kannst Du dann sowohl horizontal als auch vertikal ausrichten. (zumindest geht's in Word 2000 so, aber bei anderen Versionen dürfte es wohl nicht so viel anders sein)
Hat's geklappt?
Gruß! Maschi
Du zeigst mit dem Mauspfeil auf den Rand des Flussdiagramms bis das Doppelkreuz erscheint --> rechte Maustaste anklicken --> AutoForm formatieren --> Registerkarte "Layout" --> Schaltfläche "Weitere" --> Registerkarte "Bildposition" --> dort kannst Du dann sowohl horizontal als auch vertikal ausrichten. (zumindest geht's in Word 2000 so, aber bei anderen Versionen dürfte es wohl nicht so viel anders sein)
Hat's geklappt?
Gruß! Maschi
Antwort 4 von classic04
Moin Maschi
Habs grad vesucht aber leider wird dann die Autoform in die mitte des Blattes verschoben, ich möchte aber den Text innerhalb der Form verschieben/zentrieren. Die form soll dabei an ihrem Platz bleiben.
Mach ich da was falsch?
Gruß Jens
Habs grad vesucht aber leider wird dann die Autoform in die mitte des Blattes verschoben, ich möchte aber den Text innerhalb der Form verschieben/zentrieren. Die form soll dabei an ihrem Platz bleiben.
Mach ich da was falsch?
Gruß Jens
Antwort 5 von Maschi63
Oh, das war ein kleines Missverständnis.
Aber den Text kannst Du nicht vertikal zentrieren - es sei denn, Du wendest einen kleinen Trick an und zwar:
Du markierst Du Dir als erstes den schon dastehenden Text, klickst auf "kopieren" und löschst ihn anschließend aus der AutoForm heraus.
Dann fügst Du eine Tabelle ein, die aus nur einer Zeile und einer Spalte besteht. Danach klickst Du auf "Einfügen" und fügst so den kopierten Text ein.
Die Tabelle musst Du Dir in der Größe so einstellen wie die AutoForm ist (Tabelle --> Tabelleneigenschaften --> Spalte bzw. Zeile)
Und innerhalb der Tabellenzeile kannst Du - falls nötig - auch den Text noch vertikal zentrieren.
Ich weiß, das klingt jetzt umständlich, ist aber gar nicht so arg.
Gruß! Maschi
Aber den Text kannst Du nicht vertikal zentrieren - es sei denn, Du wendest einen kleinen Trick an und zwar:
Du markierst Du Dir als erstes den schon dastehenden Text, klickst auf "kopieren" und löschst ihn anschließend aus der AutoForm heraus.
Dann fügst Du eine Tabelle ein, die aus nur einer Zeile und einer Spalte besteht. Danach klickst Du auf "Einfügen" und fügst so den kopierten Text ein.
Die Tabelle musst Du Dir in der Größe so einstellen wie die AutoForm ist (Tabelle --> Tabelleneigenschaften --> Spalte bzw. Zeile)
Und innerhalb der Tabellenzeile kannst Du - falls nötig - auch den Text noch vertikal zentrieren.
Ich weiß, das klingt jetzt umständlich, ist aber gar nicht so arg.
Gruß! Maschi
Antwort 6 von classic04
Aha!! Trick 17!
vielen Dank Maschi
Du hast recht bei Quadratischen Elementen funktioniert das ja aber leider hab ich auch Rauten, Kreise und Parallelogramme. da kann ich ja keine Tabelle einfügen zumindest wirds bei der Größe kritisch oder?
Ich probiers mal aus
Gruß Jens
vielen Dank Maschi
Du hast recht bei Quadratischen Elementen funktioniert das ja aber leider hab ich auch Rauten, Kreise und Parallelogramme. da kann ich ja keine Tabelle einfügen zumindest wirds bei der Größe kritisch oder?
Ich probiers mal aus
Gruß Jens
Antwort 7 von Lisa2004
Probier es mal mit diesem Makro - Einfügemarke sollte im Text stehen:
Sub CenterTextInTextbox()
' Einfügemarke sollte in Textfeld stehen
Dim myFrame As TextFrame
Dim mySpaceBefore
Dim i
Set myFrame = Selection.ShapeRange.Item(1).TextFrame
myFrame.TextRange.Select
Selection.Collapse (wdCollapseStart)
Selection.Paragraphs(1).Format.SpaceBefore = 0
myFrame.TextRange.Select
Selection.Collapse (wdCollapseStart)
i = 1
While Selection.MoveDown(Unit:=wdLine, Count:=1)
i = i + 1
Wend
mySpaceBefore = (myFrame.Parent.Height - _
i * Selection.ParagraphFormat.LineSpacing) / 2
myFrame.TextRange.Select
Selection.Collapse (wdCollapseStart)
Selection.Paragraphs(1).Format.SpaceBefore = mySpaceBefore
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
Sub CenterTextInTextbox()
' Einfügemarke sollte in Textfeld stehen
Dim myFrame As TextFrame
Dim mySpaceBefore
Dim i
Set myFrame = Selection.ShapeRange.Item(1).TextFrame
myFrame.TextRange.Select
Selection.Collapse (wdCollapseStart)
Selection.Paragraphs(1).Format.SpaceBefore = 0
myFrame.TextRange.Select
Selection.Collapse (wdCollapseStart)
i = 1
While Selection.MoveDown(Unit:=wdLine, Count:=1)
i = i + 1
Wend
mySpaceBefore = (myFrame.Parent.Height - _
i * Selection.ParagraphFormat.LineSpacing) / 2
myFrame.TextRange.Select
Selection.Collapse (wdCollapseStart)
Selection.Paragraphs(1).Format.SpaceBefore = mySpaceBefore
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
Antwort 8 von classic04
nochmal danke Lisa
leider kenne ich mich mit Macros nicht aus und hab keine Ahnung wo ich was einfügen soll.
trotzdem Vielen Dank,
Jens
leider kenne ich mich mit Macros nicht aus und hab keine Ahnung wo ich was einfügen soll.
trotzdem Vielen Dank,
Jens
Antwort 9 von Lisa2004
mach es dann einfach mal so (probiere vor der Aufzeichnung am besten aus, was Du am häufigsten wählen musst, damit es richtig hinkommt):
- füge eine Deiner Autoformen ein
- gehe auf Extras - Makro - Aufzeichnen - ok - es erscheint der Makrorekorder auf dem Bildschirm
- Rechtsklick in Deine Autoform - Text hinzufügen
- Menue Format - Absatz - Zentriert - Abstand vor - 6 oder 12 pt (bzw. was Du vorher als bestes ausprobiert hast) wählen ok.
- Makrorekorder - Aufzeichnung beenden.
Wenn Du jetzt eine neue Autoform einfügst - gehe Extras - Makro - dort sollte jetzt ein Makro1 oder so bzw. der Name den Du vorher vergeben hast, erscheinen - Ausführen.
Jetzt sollte sich die Einfügemarke in der Mitte befinden.
Falls Du sehr unterschiedlich große Autoformen hast, dann machst Du es am besten für jede so wie beschrieben über Absatz formatieren jeweils in der Autoform.
Es gibt ausser der einzelligen Tabelle s.o. oder der Formatierung über Format - Absatz keine andere Möglichkeit.
Gruß Lisa
- füge eine Deiner Autoformen ein
- gehe auf Extras - Makro - Aufzeichnen - ok - es erscheint der Makrorekorder auf dem Bildschirm
- Rechtsklick in Deine Autoform - Text hinzufügen
- Menue Format - Absatz - Zentriert - Abstand vor - 6 oder 12 pt (bzw. was Du vorher als bestes ausprobiert hast) wählen ok.
- Makrorekorder - Aufzeichnung beenden.
Wenn Du jetzt eine neue Autoform einfügst - gehe Extras - Makro - dort sollte jetzt ein Makro1 oder so bzw. der Name den Du vorher vergeben hast, erscheinen - Ausführen.
Jetzt sollte sich die Einfügemarke in der Mitte befinden.
Falls Du sehr unterschiedlich große Autoformen hast, dann machst Du es am besten für jede so wie beschrieben über Absatz formatieren jeweils in der Autoform.
Es gibt ausser der einzelligen Tabelle s.o. oder der Formatierung über Format - Absatz keine andere Möglichkeit.
Gruß Lisa
Antwort 10 von Maschi63
Was Du als einfache "Notlösung" auch noch machen könntest wäre, dass Du über dem Text eine Leerzeile einfügst. Diese könntest Du in der Höhe verändern, inden Du nur in dieser leeren Zeile die Schriftgröße veränderst (z. B. wenn der Text weiter runter soll, dann große Schriftgröße nehmen).
Hier müsstest Du eben ein bisschen schätzen, ob der Text nun in der Mitte steht.
Lisa's Vorschlag hab ich auch mal getestet, da hat's bei mir den Text aber auch nicht ganz 100%ig zentriert (oder ich hab was flasch gemacht, dar ich wenig Ahnung von Makros habe).
Gruß! Maschi
Hier müsstest Du eben ein bisschen schätzen, ob der Text nun in der Mitte steht.
Lisa's Vorschlag hab ich auch mal getestet, da hat's bei mir den Text aber auch nicht ganz 100%ig zentriert (oder ich hab was flasch gemacht, dar ich wenig Ahnung von Makros habe).
Gruß! Maschi
Antwort 11 von classic04
Vielen Dank für eure Hilfe und detaillierten Beschreibungen. Ich habs mit abschätzen und den verschiedenen Leerzeichen gemacht, da meine Formen alle unterschiedlich groß sind und ich nicht nur Text sondern auch Formeln und Bilder eingefügt habe. Ich hab das gleiche Diagramm noch in Excel und werde es einfach von dort ausdrucken und einheften, dann muss das in der Worddokumentation nich so genau sein(sieht der Prof eh nich).
Also nochmals vielen Dank
Gruß Jens
Also nochmals vielen Dank
Gruß Jens
Antwort 12 von TroubleMaker
Zitat:
..aber wenn ich's in Word kopiere wird alles verschoben..
..aber wenn ich's in Word kopiere wird alles verschoben..
wenn du das diagramm in word nicht mehr bearbeiten musst, füge es doch als grafik ein (über menü "bearbeiten -> inhalte einfügen")
TM
Antwort 13 von classic04
@TroubleMaker
danke das hättest du auch früher sagen können :-)
hätte ich mir ne menge Arbeit ersparen können
Gruß jens
danke das hättest du auch früher sagen können :-)
hätte ich mir ne menge Arbeit ersparen können
Gruß jens

