PC-HELP.CZ

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í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 = ?

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