WORD图片版式转换宏VBA

冷不防 2023-10-08 10:16 10阅读 0赞

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
    '* 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
                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
    '----------------------

发表评论取消回复

表情：

评论列表（有 0 条评论，10人围观）

还没有评论，来说两句吧...

相关阅读

相关 4. VBA宏注释

完整版下载链接： [https://download.csdn.net/download/xijinno1/87716168][https_download.csdn.net_

左手的ㄟ右手/ 2023年10月09日 18:48/ 0 赞/ 68 阅读

相关 2. VBA Excel宏

完整版下载链接： [https://download.csdn.net/download/xijinno1/87716168][https_download.csdn.net_

落日映苍穹つ/ 2023年10月09日 18:47/ 0 赞/ 66 阅读

相关 WORD图片版式转换宏VBA

' ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ ' Created By SHOUROU@ExcelHome 2007-12-11 5:28:2

冷不防/ 2023年10月08日 10:16/ 0 赞/ 11 阅读

相关 Word处理控件Aspose.Words功能演示：使用 C# 在 Word 文档中创建和修改 VBA 宏

[Aspose.Words ][Aspose.Words]是一种高级Word文档处理API，用于执行各种文档管理和操作任务。API支持生成，修改，转换，呈现和打印文档，而无需在

╰+哭是因爲堅強的太久メ/ 2023年09月27日 19:18/ 0 赞/ 13 阅读

相关 Word处理控件Aspose.Words功能演示：使用 Python 在 Word 文档中处理 VBA 宏

Visual Basic for Applications (VBA)是一种功能强大的编程语言，可让您自动执行 Word 文档中的任务。此外，您可以很容易地使用 VBA 宏执行

柔光的暖阳◎/ 2023年09月23日 13:13/ 0 赞/ 139 阅读

相关 word VBA_替换下划线

Sub 替换下划线() Selection.HomeKey wdStory Selection.Find.ClearFormatting

傷城~/ 2023年07月10日 09:00/ 0 赞/ 178 阅读

相关 word用宏设置图片的大小

使用宏，alt+F8进入宏查看界面，点击创建，输入以下代码，设置你要的图片高、宽，单位：厘米。f5或保存后退出宏编辑界面。然后alt+F8进入宏查看界面，点击运行即可。

迈不过友情╰/ 2023年01月08日 12:28/ 0 赞/ 397 阅读

相关 Word 利用 VBA 批量设置图片格式

Word 利用 VBA 批量设置图片格式批量设置图片格式转为嵌入式图形参考资料批量设置图片格式 Sub setShapeStyl

左手的ㄟ右手/ 2022年10月07日 02:53/ 0 赞/ 489 阅读

相关 VBA写excel宏

Sub zzz() ' ' zzz 宏 ' ' 'ActiveWorkbook.Names.Add Name:="S941.群众团体",

刺骨的言语ヽ痛彻心扉/ 2022年08月18日 03:25/ 0 赞/ 222 阅读

相关 C#调用Excel VBA宏

近日的一系列工作是做网站的营运维护，因此做了大量的支持工具。有Excel中写VBA的，也有直接C\做的工具。有时需要在C\中执行Excel VBA宏，甚至有时还需要在

超、凢脫俗/ 2022年02月01日 01:37/ 0 赞/ 367 阅读