Automatické zmenšení obrázku při vložení - Word

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Laufass
nováček
Příspěvky: 10
Registrován: leden 15
Pohlaví: Nespecifikováno
Stav:
Offline

Automatické zmenšení obrázku při vložení - Word

Příspěvekod Laufass » 13 črc 2017 16:53

Ahoj,
mám dvě otázky:
a) nemůžu nikde najít, jak ve Wordu nastavím to (jestli to jde), aby se mi při vložení obrázku do dokumentu automaticky zmenšil na nějakou předepsanou hodnotu. Mám návrh dokumentu, kam se vždy budou dávat nové obrázky a nechce se mi po každém vložení obrázku lézt do formátování a přepisovat velikost. Kdyby to šlo abych je tam jen házel a nemusel v podstatě nic měnit.

b) když už tam vložím ten obrázek, dá se nějak nastavit aby mi pod ním automaticky vyskočilo číslování a zároveň kdybych smazal někde uprostřed obrázek tak by se číslování posunulo o ten jeden co jsem smazal?

Rád bych to řešil nějakou funkcí než makrem abych nemusel po každým vložení obrázku spustit makro aby se zmenšil, ale pokud by nebyla jiná možnost nevadí :)

Snad jsem se vyjádřil srozumitelně :D

Díky moc :)

Dodatečně přidáno po 3 hodinách 9 minutách 52 vteřinách:
Tak jsem to musel vyřešit makrem i to číslování. Problém nastává když jsou obrázky v jinym formatu. Jsou to obrázky z různých foťáků focený různými lidmi. Já na jednom obrázku, který byl 4/3 nastavil při tvoření makra, že má mít výšku 7 cm a aby se zachovalo původní formátování. Další obrázek na který jsem aplikoval to makro byl širokoúhlý a při týhle aplikaci se převedl sice na výšku 7 ale na šířku formátu 4/3 s tím, že se šířka "smrskla". Je nějaká možnost aby se v tom makru aplikovala jen výška a šířka se přizpůsobila výšce tak aby si zachoval formátování (4/3;16/9 apod.)?
Takhle vypadá makro když jsem ho zaznamenal. (je tam i rámeček a podobný kraviny ale jde mi jen o tu výšku)

Sub Figures()
'
' Figures Makro
'
'
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 198.45
Selection.InlineShapes(1).Width = 263.05
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
With Selection.InlineShapes(1)
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = 12611584
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = 12611584
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = 12611584
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = 12611584
End With
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth300pt
.DefaultBorderColor = 12611584
End With
Selection.InsertCaption Label:="Fig.", TitleAutoText:="VložitTitulek1", _
Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
End Sub

Dodatečně přidáno po 3 hodinách 24 minutách 59 vteřinách:
V podstatě jen potřebuju vědět jestli se dá napsat něco jinýho do "Width". Něco, co mi ten obrázek změní na určených 198.45 Height ale Width se upraví podle toho tak, aby se zachoval poměr stran.
Selection.InlineShapes(1).Height = 198.45
Selection.InlineShapes(1).Width = ?

Reklama
VOM
Level 1.5
Level 1.5
Příspěvky: 114
Registrován: srpen 10
Pohlaví: Muž
Stav:
Offline

Re: Automatické zmenšení obrázku při vložení - Word

Příspěvekod VOM » 14 črc 2017 09:54

Zkuste obrázky vkládat do předem vloženého textového pole s určenou velikostí.
M.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Automatické přehrávání videa Příloha(y)
    od fafejt » 09 úno 2024 13:59 » v Internet a internetové prohlížeče
    4
    531
    od fafejt Zobrazit poslední příspěvek
    09 úno 2024 17:30
  • Windows 11 OneDrive automatické odstranění
    od ArtisPier » 26 zář 2023 11:41 » v Programy ke stažení
    4
    4289
    od ArtisPier Zobrazit poslední příspěvek
    26 zář 2023 12:29
  • Při vložení DVD hlási XBox chybu "0x803f800d"
    od Zabral68 » 28 čer 2023 19:06 » v Herní konzole
    0
    1009
    od Zabral68 Zobrazit poslední příspěvek
    28 čer 2023 19:06
  • Word 2007: Jak zrušit prázdné řádky na každé stránce mezi čarou a poznámkami?
    od Jirka0508 » 29 pro 2023 00:30 » v Windows 11, 10, 8...
    1
    644
    od mmmartin Zobrazit poslední příspěvek
    29 pro 2023 13:00

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů