修改图片大小与图片加边框VBA宏命令

Sub 修改图片大小() 
Dim iSha As InlineShape 
For Each iSha In ActiveDocument.InlineShapes 
If iSha.Type = wdInlineShapePicture Then 
iSha.LockAspectRatio = msoFalse '不锁定纵横比 
iSha.Width = CentimetersToPoints(14) '宽5CM 
iSha.Height = CentimetersToPoints(9) '高5CM 
End If 
Next 
End Sub 

Sub 图片加边框()
Dim i As Integer


For i = 1 To ActiveDocument.InlineShapes.Count
  

With ActiveDocument.InlineShapes(i)

With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle

.LineWidth = wdLineWidth100pt

.Color = wdColorAutomatic

End With