zoukankan      html  css  js  c++  java
  • 编写Word宏使选中的图片改变为固定宽度并保持纵横比

    代码如下:

    Sub 改变图片宽度为12并设置灰色边框()
    '
    ' 改变图片宽度为12并设置灰色边框 宏
    '
    '
        ' Application.Run MacroName:="改变图片大小试验"
        Selection.InlineShapes(1).Fill.Visible = msoFalse
        Selection.InlineShapes(1).Fill.Solid
        Selection.InlineShapes(1).Fill.Transparency = 0#
        Selection.InlineShapes(1).Line.Weight = 0.75
        Selection.InlineShapes(1).Line.Transparency = 0#
        Selection.InlineShapes(1).Line.Visible = msoFalse
        Selection.InlineShapes(1).LockAspectRatio = msoTrue
        picheight = Selection.InlineShapes(1).Height
        picwidth = Selection.InlineShapes(1).Width
        Selection.InlineShapes(1).Width = 340.15
        Selection.InlineShapes(1).Height = picheight * 340.15 / picwidth
        Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
        Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
        Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
        Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
        Selection.InlineShapes(1).PictureFormat.CropRight = 0#
        Selection.InlineShapes(1).PictureFormat.CropTop = 0#
        Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
     
        With Selection.InlineShapes(1)
            With .Borders(wdBorderLeft)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = -603930625
            End With
            With .Borders(wdBorderRight)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = -603930625
            End With
            With .Borders(wdBorderTop)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = -603930625
            End With
            With .Borders(wdBorderBottom)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = -603930625
            End With
            .Borders.Shadow = False
        End With
        With Options
            .DefaultBorderLineStyle = wdLineStyleSingle
            .DefaultBorderLineWidth = wdLineWidth050pt
            .DefaultBorderColor = -603930625
        End With   
    End Sub
  • 相关阅读:
    模仿outlook快捷方式栏的一个控件
    买了一本书《Programming pearls》编程珠玑(88上的数学题目(1))
    一个IE动画图标的小例子
    对水波特效实现原理的解释
    向量空间的几何变换
    一个简单Led控件
    【转载】配置(visual studio.net已检测到指定的web服务器运行的不是asp.net1.1版)
    最近学习ASP2.0相关的几个小问题(非创新性文章)
    一道c的面试题,大数相乘。
    Led控件(2)——Led显示屏模拟
  • 原文地址:https://www.cnblogs.com/dongdong2016/p/6264881.html
Copyright © 2011-2022 走看看