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