2 způsoby, jak vycentrovat všechny obrázky a textová pole v dokumentu aplikace Word

V tomto článku bychom vám rádi představili 2 způsoby, jak vycentrovat všechny obrázky a textová pole v dokumentu aplikace Word.

Obrázky a tvary, jako například textová pole, hrají zásadní roli při vytváření skvělého dokumentu. S rostoucím počtem vkládaných obrázků a tvarů se začíná objevovat potřeba integrovat jejich formátování, například je vycentrovat.

Měli byste vědět, že všechny obrázky vložené do dokumentu jsou nastaveny v rozložení „V souladu s textem“, zatímco textová pole jsou plynulé tvary. Rozvržení obrázku můžete změnit podle potřeby, ale abyste je vystředili, budete muset vzít v úvahu zalamování textu. Vzhledem k tomu, že formátování textu lze snadno změnit, zůstane vám rozložení, které se vám nelíbí.

Proto se zaměříme na 2 způsoby, jak vycentrovat obrázky a textová pole „V souladu s textem“.

Metoda 1: Vycentrujte jeden obrázek nebo textové pole ručně

Chcete-li vycentrovat obrázek „V souladu s textem“, postupujte takto:

1. Nejprve klikněte na obrázek a vyberte jej.
2. Zadruhé klikněte na „Střed“ ve skupině „Odstavec“ na kartě „Domů“. Nebo můžete místo toho použít klávesové zkratky „Ctrl+E“.

Chcete-li textové pole vycentrovat, postupujte podle těchto pokynů:

1. Podobně klikněte na textové pole, abyste jej měli ve výběru.
2. Poté klikněte na kartu „Formát“ v části „Nástroje kreslení“.
3. Dále klikněte na „Zarovnat“ ve skupině „Uspořádat“.
4. A v rozbalovací nabídce vyberte „Zarovnat na střed“.

Metoda 2: Dávkové centrum více obrázků nebo textových polí automaticky

Většina z nás by upřednostnila automatický proces, abychom si ušetřili námahu. Tady to máte.

1. Nejprve stiskněte „Alt + F11“ a otevřete editor VBA.
2. Dále klikněte na „Normální“ projekt.
3. Klikněte na kartu „Vložit“ a vyberte „Modul“.
4. Poté dvojitým kliknutím na modul zobrazte prostor pro úpravy na pravé straně.
5. Vedle středových obrázků tam vložíte následující kódy:

Sub CenterInLinePictures()
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objInLineShape In objDoc.InlineShapes
    objInLineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInLineShape 
End Sub

Chcete-li vycentrovat všechna textová pole, potřebujete následující makro:

Sub CenterTextBoxes()
  Dim objDoc As Document
  Dim objTextBox As Shape
 
  Set objDoc = ActiveDocument
 
  For Each objTextBox In objDoc.Shapes
    If objTextBox.Type = msoTextBox Then
      objTextBox.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
      objTextBox.Left = wdShapeCenter
    End If
  Next objTextBox
End Sub

Chcete-li vycentrovat obrázky i textová pole, budete muset použít toto:

Sub CenterInLinePicturesAndTextBoxes()
  Dim objInLineShape As InlineShape
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objInLineShape In objDoc.InlineShapes
    objInLineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInLineShape
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
      objShape.Left = wdShapeCenter
    End If
  Next objShape
End Sub

6. Nakonec klikněte na tlačítko „Spustit“ nebo stiskněte „F5“.

Řešte problémy s dokumenty

Bez ohledu na to, jak neochotně musíme připustit, že Word není spolehlivý. Jeho rozpad může vést k poškození dokumentů při zdědění a poškozený docx může nám to zlomit srdce. Pro zmírnění takové úzkosti je vhodné si předem pořídit nástroj pro obnovu dokumentů. Pak se nebudete muset obávat ztráty dat.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xlsx korupce a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com