请教插入图片问题

yuyvtul

用下列代码(版主教我的)插入图片，插入的图片要求分别为嵌入型或紧密型，应如何改动？ 自己水平太低，老麻烦别人，自觉很不好意思——没办法。 Sub 紧密型图片() Options.DefaultFilePath(Path:=wdPicturesPath) = "D:\图片\紧密型图片\" Dialogs(wdDialogInsertPicture).Show End Sub ———————————————————————————————— Sub ExampleToInsertPng() Dim MyDialog As FileDialog, vrtSelectedItem As Variant, MyRange AsRange On Error Resume Next '忽略错误 '设置查找文件时 Word 所指向的文件夹 Application.ScreenUpdating = False Application.ChangeFileOpenDirectory "D:\图片\嵌入型图片" '定义一个文件夹选取对话框 Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "PNG文件", "*.png", 1 '增加筛选器的项目为所有WORD文件 .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 With ActiveDocument For Each vrtSelectedItem In MyDialog.SelectedItems '在所有选取项目中循环 Set MyRange = .Range(.Content.End - 1, .Content.End - 1) .Shapes.AddPicture FileName:=vrtSelectedItem, Anchor:=MyRange .Content.InsertAfter Chr(13) Next vrtSelectedItem End With End If End With Application.ScreenUpdating = True End Sub

konggs

老大不在，加上这句：

For Each a In Shapes a.WrapFormat.Type = wdWrapTight Next

放在Application.ScreenUpdating = True的前面，

再在定义变量的最后加： a as shape

试试吧

yuyvtul

以下是引用konggs在2005-7-31 17:46:10的发言：

加上这句：

For Each a In Shapes a.WrapFormat.Type = wdWrapTight Next

放在Application.ScreenUpdating = True的前面，

再在定义变量的最后加： a as shape

我怎么弄不出来？也许是我太菜了，不知怎么处理，还请konggs详细指教。

守柔

楼主勿责备自己，每个人都有一个学习过程，惑而从师，成为学问也。

第一个问题，昨天我的代码，就是改变文件夹路径，在我的机器上完全正常，这也是常规用法，不知楼主因何出现改变不了？而你上述代码中，仍然沿用了该方法，请解释。

第二个问题，TO KONGGS & 楼主：

不一定非得用循环设置，在工具/选项/编辑中，图片插入/粘贴方式中，可以进行设置，你可以录个宏，修改为你想要的环绕方式，文档退出后还原。

yuyvtul

以下是引用守柔在2005-8-1 6:01:12的发言：

第一个问题，昨天我的代码，就是改变文件夹路径，在我的机器上完全正常，这也是常规用法，不知楼主因何出现改变不了？而你上述代码中，仍然沿用了该方法，请解释。

第二个问题，TO KONGGS & 楼主：

不一定非得用循环设置，在工具/选项/编辑中，图片插入/粘贴方式中，可以进行设置，你可以录个宏，修改为你想要的环绕方式，文档退出后还原。

第一个问题已经解决，我也不知道开始为什么不能改变路径，后来想想，大概犯了一个低级错误——将文件夹的名称写错。

第二个问题，我也是这样作的，还是VBA刚接触，不会用，不会怎样将录制的宏简化和插入到原来的宏中。

Sub 嵌入改紧密() ' With Options .ReplaceSelection = True .AllowDragAndDrop = True .AutoWordSelection = False .INSKeyForPaste = False .PasteSmartCutPaste = True .AllowAccentedUppercase = False .PictureEditor = "Microsoft Office Word" .TabIndentKey = True .Overtype = False .AllowClickAndTypeMouse = True .CtrlClickHyperlinkToOpen = True .AutoKeyboardSwitching = False .PictureWrapType = wdWrapMergeTight .DisplayPasteOptions = True .PromptUpdateStyle = False .FormatScanning = True .ShowFormatError = False .SmartParaSelection = True .SmartCursoring = True .IMEAutomaticControl = False End With ActiveDocument.ClickAndTypeParagraphStyle = "正文" End Sub Sub 紧密改嵌入() With Options .ReplaceSelection = True .AllowDragAndDrop = True .AutoWordSelection = False .INSKeyForPaste = False .PasteSmartCutPaste = True .AllowAccentedUppercase = False .PictureEditor = "Microsoft Office Word" .TabIndentKey = True .Overtype = False .AllowClickAndTypeMouse = True .CtrlClickHyperlinkToOpen = True .AutoKeyboardSwitching = False .PictureWrapType = wdWrapMergeInline .DisplayPasteOptions = True .PromptUpdateStyle = False .FormatScanning = True .ShowFormatError = False .SmartParaSelection = True .SmartCursoring = True .IMEAutomaticControl = False End With ActiveDocument.ClickAndTypeParagraphStyle = "正文" End Sub

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-1 09:26:40 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example1() '改为紧密型 Options.PictureWrapType = wdWrapMergeTight End Sub '---------------------- Sub Example2() '改为嵌入型 Options.PictureWrapType = wdWrapMergeInline End Sub '----------------------

yuyvtul

谢谢版主。