温馨提示:本文翻译自stackoverflow.com，查看原文请点击：vba - Change a style of a paragraph with picture
vba - 使用图片更改段落样式
发布于 2020-04-08 12:38:56
我正在努力解决以下问题。在文档中，我有许多嵌入式图片以及一些浮动图片。我想编写一个代码，以更改其中包含图片的段落的样式。我们将此样式称为“图片”。唯一的问题是段落浮动图片，即那些图片周围带有文字的段落。在这种情况下，我希望保持样式不变。
这是在Word中的外观示例。
到目前为止，我已经编写了这样的代码：
Sub ApplyPictureStyle()
Application.ScreenUpdating = False
Dim iShp As InlineShape
For Each iShp In ActiveDocument.InlineShapes
With iShp
If .Type = wdInlineShapePicture Then .Range.Style = "Picture"
End With
Next
Application.ScreenUpdating = True
End Sub
正如我之前解释的那样，这样的代码将适用于所有图片。
是否可以重写此代码，使其适用于嵌入式图片，但同时省略浮动图片？
提问者
John Snow
被浏览
40
