MS word 图片格式用 vba 重新着色

Question

如何用vba改变图片inlineshape的颜色 代码

Public Function imagetransform()
    For Each singleLine In ActiveDocument.Paragraphs
      If singleLine.range.InlineShapes.Count > 0 Then
        Dim shp4d1 As InlineShape
        Set shp4d1 = singleLine.range.InlineShapes(1)
        shp4d1.Select
        End If 
  Next singleLine
End Function

如何用vba宏实现这个？

Answer 1

不幸的是，并非所有功能都在 Word 对象模型中可用，这些功能可通过 Fluent UI（又名 Ribbon UI）在功能区上使用。图库控件提供了基本功能，不允许以编程方式选择所需的项目。但是，您可以尝试使用 Windows API（辅助功能 API）来自动化 UI。