VB 如何控制WORD中插入图片的大小等属性?_IT百科

自己录个宏，稍加改动就可以了。

Sub 图片旋转270度对齐页面()

'图片排版270度

If Selection.InlineShapes.Count = 0 Then

If Selection.ShapeRange.Count <>0 Then

Selection.ShapeRange.Fill.Visible = msoFalse

'Selection.ShapeRange.AlternativeText = "Higer标书工具修改"

Selection.ShapeRange.Fill.Solid

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid

Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoFalse

Selection.ShapeRange.LockAspectRatio = msoFalse

Selection.ShapeRange.Rotation = 270#

Selection.ShapeRange.Width = CentimetersToPoints(28.9)

Selection.ShapeRange.Height = CentimetersToPoints(20.2)

'Selection.ShapeRange.PictureFormat.Brightness = 0.5

'Selection.ShapeRange.PictureFormat.Contrast = 0.5

'Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic

Selection.ShapeRange.PictureFormat.CropLeft = 0#

Selection.ShapeRange.PictureFormat.CropRight = 0#

Selection.ShapeRange.PictureFormat.CropTop = 0#

Selection.ShapeRange.PictureFormat.CropBottom = 0#

'Selection.ShapeRange.Left = 90.1

'Selection.ShapeRange.Top = 88.15

'Selection.ShapeRange.Left = -120.45

'Selection.ShapeRange.Top = 109.1

Selection.ShapeRange.RelativeHorizontalPosition = _

wdRelativeHorizontalPositionPage

Selection.ShapeRange.RelativeVerticalPosition = _

wdRelativeVerticalPositionPage

Selection.ShapeRange.Left = wdShapeCenter

Selection.ShapeRange.Top = wdShapeCenter

Selection.ShapeRange.LockAnchor = False

Selection.ShapeRange.LayoutInCell = True

Selection.ShapeRange.WrapFormat.AllowOverlap = True

Selection.ShapeRange.WrapFormat.Side = wdWrapBoth

Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)

Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)

Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)

Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)

Selection.ShapeRange.WrapFormat.Type = 3

Selection.ShapeRange.ZOrder 4

Selection.ShapeRange.ZOrder msoSendBackward

End If

If Selection <>"" Then

If Selection.InlineShapes.Count <>0 Then

'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 = msoFalse

'Selection.InlineShapes(1).Width = CentimetersToPoints(28.9)

'Selection.InlineShapes(1).Height = CentimetersToPoints(20.2)

'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#

Selection.InlineShapes(1).ConvertToShape '属性转换（InlineShapes(1)转换为ShapeRange）