V tomto článku vám představíme 3 způsoby, jak změnit vložené obrázky na plovoucí v dokumentu Word.
Jak možná víte, při každém vložení obrázku do dokumentu Word bude ve výchozím nastavení použit styl balení „V souladu s textem“. Tímto způsobem je obrázek považován za velkou postavu, což nám ztěžuje jeho pohyb jednoduše kliknutím a tažením. Proto musíme tyto vložené obrázky změnit na plovoucí, abychom mohli snadno upravit jejich umístění.
Jako vždy máme pro vás 3 způsoby vyzvednutí.
Metoda 1: Ruční změna stylu obtékání jednoho obrázku
- Nejprve klepněte pravým tlačítkem myši na obrázek a přesuňte kurzor nad možnost „Zalomení textu“ v kontextové nabídce.
- Dále vyberte jakýkoli jiný styl než „V souladu s textem“. Poté budete moci obrázek přetáhnout kamkoli budete chtít.
Metoda 2: Změňte výchozí styl
Jak bylo uvedeno výše, výchozí styl obtékání je nastaven na „V souladu s textem“. Konfiguraci však můžete před vložením obrázků upravit pomocí následujících kroků.
- Chcete-li začít, klikněte na kartu „Soubor“ a poté na příkaz „Možnosti“. Otevře se dialogové okno „Možnosti aplikace Word“.
- Dále klikněte na „Pokročilé“ v levém sloupci.
- Přejděte don na část „Vyjmout, zkopírovat a vložit“ a najděte možnost „Vložit / vložit obrázek jako“.
- Kliknutím na rozevírací tlačítko vyberte styl obtékání.
- V neposlední řadě uložte nové nastavení kliknutím na „OK“.
Všechny obrázky vložené v budoucnu budou mít styl plovoucího obtékání.
Metoda 3: Změňte styl obtékání více obrázků pomocí VBA
- Pro začátek stiskněte klávesy „Alt+F11“ pro spuštění editoru VBA.
- Dále přejděte na projekt „Normální“ kliknutím na „Normální“.
- Poté na panelu nabídek klikněte na kartu „Vložit“ a v rozevírací nabídce vyberte možnost „Modul“.
- Nyní poklepejte na nový modul a vyvolejte tak prostor pro kódování na pravé straně editoru.
- Vložte níže uvedené makro:
Sub ChangeInLineWithTextPicToFloatingPic()
Dim objDoc As Document
Dim objInLineShape As InlineShape
Dim objShape As Shape
Set objDoc = ActiveDocument
With objDoc
For Each objInLineShape In .InlineShapes
objInLineShape.ConvertToShape
Next objInLineShape
For Each objShape In .Shapes
objShape.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapBehind
Next objShape
End With
End Sub
- Nakonec klikněte na „Spustit“ nebo stiskněte „F5“.
Hodnocení:
Toto makro změní všechny vložené obrázky v aktivním dokumentu na plovoucí a nastaví je ve stylu „Behind Text“. V případě, že je potřebujete formátovat jiným stylem, stačí změnit konstantu v řádku kódu „Selection.ShapeRange.WrapFormat.Type = wdWrapBehind“. Podrobný výčet najdete na tomto odkazu: https://docs.microsoft.com/en-us/office/vba/api/Word.WdWrapType
Záležitosti zálohování
Jak již bylo řečeno, unce prevence má cenu vyléčení. I když můžeme najít způsoby, jak zachránit soubory po Slovo korupce, zdá se, že je vždycky příliš pozdě. Nejideálnější je samozřejmě podniknout preventivní opatření, jako je vytváření záloh. S nimi po ruce se budete cítit pohodlněji při provádění akcí, aniž byste se museli 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ě zkorumpované xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com




