.gif)
Sub PicScale()
Dim PecentSize As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Next oIshp
For Each oshp In ActiveDocument.Shapes
With oshp
.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End With
Next oshp
End Sub
Sub PicSize()
Dim PicHeigh, PicWidth As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
PicHeight = InputBox("Enter pictures height (pixels)", "Resize Picture", 100)
PicWidth = InputBox("Enter pictures width (pixels)", "Resize Picture", 200)
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.Height = PicHeight
.Width = PicWidth
End With
Next oIshp
For Each oshp In ActiveDocument.Shapes
With oshp
.Height = PicHeight
.Width = PicWidth
End With
Next oshp
End Sub
دیدگاه