vba 设置图片格式

Posted 2021-06-28 笑虾

设置图片格式

Sub setShapeStyle()
	' 声明个内嵌图片（暂时没用到）
    Dim theShape As InlineShape
    
    ' 关闭屏幕更新
    Application.ScreenUpdating = False
        
    For Each myShape In ActiveDocument.InlineShapes
        
        With myShape.Borders
            .OutsideLineStyle = wdLineStyleSingle '边框类型
            .OutsideColorIndex = wdBlack '边框颜色
            .OutsideLineWidth = wdLineWidth100pt '边框粗细
        End With
    
    Next
    ' 开启屏幕更新
    Application.ScreenUpdating = True

End Sub

参考资料

WdLineWidth 枚举