Word中VBA代码如何处理嵌入的图片真正做到居中？

wax828

嵌入的图片默认插在悬挂缩进2格后或者在它前面还有其他全角或半角空格，居中并不能真正在中间的位置，该如何写成VBA代码批量处理呢？求指导

pipiludaxian

Sub inlineshap() '嵌入式圖片居中　by pipilu
Dim ashap As InlineShape
For Each ashap In ActiveDocument.InlineShapes
    ashap.Range.Select
    Selection.ClearFormatting
    Selection.Range.Paragraphs.Alignment = wdAlignParagraphCenter

Next
End Sub

wax828

pipiludaxian 发表于 2014-7-25 21:48
Sub inlineshap() '嵌入式圖片居中　by pipilu
Dim ashap As InlineShape
For Each ashap In ActiveDo ...

感谢 pipiludaxian 对我的帮助，问题解决了，太谢谢您了。

banjinjiu

pipiludaxian 发表于 2014-7-25 21:48
Sub inlineshap() '嵌入式圖片居中　by pipilu
Dim ashap As InlineShape
For Each ashap In ActiveDo ...

谢谢分享。

向往的歌

pipiludaxian 发表于 2014-7-25 21:48
Sub inlineshap() '嵌入式圖片居中　by pipilu
Dim ashap As InlineShape
For Each ashap In ActiveDo ...

请教：怎样批量设置图片的大小及环绕方式（如：浮于文字上方）及水平居中对齐、垂直居中对齐？？？

zhshbding

向往的歌 发表于 2020-3-20 12:19
请教：怎样批量设置图片的大小及环绕方式（如：浮于文字上方）及水平居中对齐、垂直居中对齐？？？

同问

gouyuan92

pipiludaxian 发表于 2014-7-25 21:48
Sub inlineshap() '嵌入式圖片居中　by pipilu
Dim ashap As InlineShape
For Each ashap In ActiveDo ...

谢谢pipilu，几行代码帮了大忙，爱心爱心