VBA

标签：form   screen   net   shape   line   each   border   ntb   sub   

1. 调整图片亮度:
   

   Sub 调整全部图片亮度()
   ‘
   ‘ 调整全部图片亮度 宏
   ‘
   ‘
    Application.ScreenUpdating = False
        Dim a As Integer
        Dim pic As InlineShape
        Dim aBorder As Border
        a = ActiveDocument.InlineShapes.Count
        If a = 0 Then
            MsgBox ("没有发现嵌入式图片")
        End If
        For Each pic In ActiveDocument.InlineShapes
            pic.PictureFormat.IncrementBrightness -0.05  ‘降亮度
        Next
        Application.ScreenUpdating = True
   End Sub
   

   　　

VBA

标签：form   screen   net   shape   line   each   border   ntb   sub   

原文地址：https://www.cnblogs.com/q1104460935/p/9385018.html