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
  • 相关阅读:
    一键保存网页为PDF
    Redis使用总结之与Memcached异同
    wxWidgets的安装编译、相关配置、问题分析处理
    python抓取网页图片
    bootstrap插件学习-bootstrap.popover.js
    CC.NET模板简化配置
    密码技术应用系列之开篇
    【Cocos2d-X开发学习笔记】第05期:渲染框架之布景层类(CCLayer)的使用
    ImageMagick还是GraphicsMagick?
    RESTClient 控件 从服务器获得数据集 REST
  • 原文地址:https://www.cnblogs.com/dongdong2016/p/6264881.html
Copyright © 2011-2022 走看看