Automatické zmenšení obrázku při vložení - Word
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 :)
https://superuser.com/questions/158626/automatical ly-resize-picture-image-in-word
Takže to jinak než makrem nejde? Stupid word. Nevadí díky a bod b)? :)
Tak to číslování jsem taky vyřešil tím samým makrem. 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 "zmrskla". 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)
' 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
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 = ?
Nezkoušel jsem:
https://answers.microsoft.com/en-us/office/forum/o ffice_2010-word/creating-a-macro-for-resizing-seve ral-photos-in/b251f117-8d17-4522-bac4-d128c32587ba
Pokud má obrázek ve vlastnostech určeno, že se zachovává poměr stran (AspectRatio), stačí přece nastavit jen jeden rozměr, druhý se upraví automaticky.