Reply to thread

Message: [QUOTE="Jan Kratochvil, post: 5383315"] I use this macro for include picture in my document I would like to know if is possible to set the size of picture on certain size automaticaly e.g. on 50% ---------------------- Sub InsertIncludeImageFieldWithImageStyle() ' ' InsertINCLUDEPICTURE With Image Style Makro ' 'Insert INCLUDEPICTURE field Selection.Style = ActiveDocument.Styles("image") Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "INCLUDEPICTURE ""images/"" ", PreserveFormatting:=True Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Fields.ToggleShowCodes ' Image frame With Selection.InlineShapes(1) With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorAutomatic End With End Sub [/QUOTE]