| 加入收藏 | 学校官网 | 田径运动会 | 站点二维码 【我要留言】 
用户登录

账  号:
密  码:
    

  • 电子邮件:0745001@163.COM
  • 即时通讯:QQ-164247110
  • 联系地址:洪江市芙蓉中学
  • 综合搜索
    请选择类别
     
    栏目导航
    最新录入

    首页文章中心技术文档
    怎么用VBA把WORD里的图片格式一次性改为“嵌入型”
    来源:转载     点击数:154 次    更新时间:2022-03-30
    '* +++++++++++++++++++++++++++++
    '* Created By SHOUROU@ExcelHome 2007-12-11 5:28:26
    '仅测试于System: Windows NT Word: 11.0 Language: 2052
    '№ 0281^The Code CopyIn [ThisDocument-ThisDocument]^'
    '* -----------------------------
    Option Explicit
    Sub 图片版式转换()
        Dim oShape As Variant, shapeType As WdWrapType
        On Error Resume Next
        If MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then
            shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _
                                             "3=衬于文字下方,4=浮于文字上方", Default:=0))

            For Each oShape In ActiveDocument.InlineShapes

                oShape.Select

                Set oShape = oShape.ConvertToShape
                With oShape
                    Select Case shapeType
                    Case 0, 1
                        .WrapFormat.Type = shapeType
                    Case 3
                        .WrapFormat.Type = 3
                        .ZOrder 5
                    Case 4
                        .WrapFormat.Type = 3
                        .ZOrder 4
                    Case Else
                        Exit Sub
                    End Select
                    .WrapFormat.AllowOverlap = False    '不允许重叠
                End With
            Next
        Else
            For Each oShape In ActiveDocument.Shapes
                oShape.ConvertToInlineShape
            Next
        End If
    End Sub
    '----------------------

    【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
    上一篇:【黔阳一中】教师说清廉 这场朗诵比赛真精彩! 下一篇:2022高考《各学科答题规范》官方要求出炉!  
    >>> 申请友情链接 >>>>
    洪江市智慧教育云平台中学生物教学中学生物学生物学教学全国中小学教师继续教育网全国青少年科技创新大赛平台湖南省青少年科技创新大赛平台植物智春晓工作室芙蓉中学

    亚雯名师工作室—中学生物 Copyright @ 2023 - 2028 All rights reserved.  Backstage System 
    ICP备案:ICP备00000000号 联系人: 电话:0745-7736289 E-MAIL:0745001@163.COM 地址:洪江市芙蓉中学