VBA

 

 

1. 调整图片亮度减10%:
   
   ?

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

   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

   　　

2. 调整对比度加10%
   
   ?

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

   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.IncrementContrast 0.05  '增对比度      Next      Application.ScreenUpdating = True End Sub

   　　

3. 宽度统一17厘米
   
   ?

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

   Sub 调整宽度17() ' ' 调整宽度17 宏 ' '  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.Width = 482  '宽度固定      Next      Application.ScreenUpdating = True End Sub

   　　

4. 高度统一 11厘米
   
   ?

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

   Sub 调整高度11() ' ' 调整高度11 宏 ' '  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.Height = 312  '高度固定      Next      Application.ScreenUpdating = True End Sub