zoukankan      html  css  js  c++  java
  • VBA

    1. 调整图片亮度减10%:
      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%
      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厘米
      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厘米
      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
      

        

  • 相关阅读:
    luogu P1486 [NOI2004]郁闷的出纳员
    Luogu P1894 [USACO4.2]The Perfect Stall
    关于中间6个月停更通知
    Luogu P1381油滴扩展
    没有上司的舞会(题解)
    幂的模运算(题解)
    闭合区域面积统计(题解)
    字符序列(题解)
    最大连续和(题解)
    排列问题
  • 原文地址:https://www.cnblogs.com/q1104460935/p/9385018.html
Copyright © 2011-2022 走看看