word嵌入式的图片宽度调整大小

晨晓之黎

求一段VBA代码：所有嵌入式的图片宽度超过16厘米以上统一改为16厘米，同时把“锁定纵横比“和“相对原始图片大小“都勾选上。谢谢！


原文：



实现效果：

wdpfox

Sub Macro()

    For Each iShape In ActiveDocument.InlineShapes
   
        If iShape.Width > 28.345 * 16 Then
            iShape.Width = 28.345 * 16
            iShape.LockAspectRatio = msoTrue
        End If
   
    Next iShape

End Sub

wdpfox

手机操作，未校验

wdpfox

-------------------

晨晓之黎

wdpfox 发表于 2021-2-15 20:34
Sub Macro()

    For Each iShape In ActiveDocument.InlineShapes

测试通过！谢谢！

晨晓之黎

wdpfox 发表于 2021-2-15 20:34
Sub Macro()

    For Each iShape In ActiveDocument.InlineShapes

我刚发现这个图片变形了，正确的操作方法应该是：是先把图片“锁定纵横比“和“相对原始图片大小“都勾选上，再统一改为16厘米

wdpfox

晨晓之黎 发表于 2021-2-17 00:16
我刚发现这个图片变形了，正确的操作方法应该是：是先把图片“锁定纵横比“和“相对原始图片大小“都勾选 ...

Sub Test()

    For Each iShape In ActiveDocument.InlineShapes
        
                iShape.LockAspectRatio = msoTrue
         
         If iShape.Width > 28.345 * 16 Then
            
                   iShape.Width = 28.345 * 16
            
        End If
   
    Next iShape

End Sub

手机未测试

413191246se

可以在 Word 中，选定图片，然后，录制一个宏，逐步调试一下，去粗取精。

晨晓之黎

wdpfox 发表于 2021-2-17 10:26
Sub Test()

    For Each iShape In ActiveDocument.InlineShapes

可以了！谢谢！

晨晓之黎

413191246se 发表于 2021-2-17 11:10
可以在 Word 中，选定图片，然后，录制一个宏，逐步调试一下，去粗取精。

逐步调试一下，去粗取精，我不会弄