vba在excel中上移word图片一页
发布网友
共1个回答
热心网友
摘要厉害,插入电子章,改了图片环绕方式后图片跑到页首,用这个方法移动图片file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image001.gifSub 指定位置插入图片() ActiveDocument.Tables(1).Cell(Row:=17, Column:=2).Select '选中表1的17行2列单元格 '在文档中插入图片并设置图片为衬与文字下方 Dim MyPic As InlineShape Set MyPic = Selection.InlineShapes.AddPicture("D:\mjk\1.png") MyPic.ConvertToShape '转换图片，为环绕方式做准备 With ActiveDocument.Shapes.Item(2) .WrapFormat.Type = wdWrapNone .ZOrder ZOrderCmd:=msoSendBehindText '设置图片环绕方式为"衬与文字下方" .Left = 250 .Top = 620 .Anchor.Cut Selection.GoTo wdGoToPage, wdGoToAbsolute, , 2 '把图片移动到相应位置 Selection.Paste End With Set MyPic = NothingEnd Sub咨询记录 · 回答于2021-10-11vba在excel中上移word图片一页厉害,插入电子章,改了图片环绕方式后图片跑到页首,用这个方法移动图片file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image001.gifSub 指定位置插入图片() ActiveDocument.Tables(1).Cell(Row:=17, Column:=2).Select '选中表1的17行2列单元格 '在文档中插入图片并设置图片为衬与文字下方 Dim MyPic As InlineShape Set MyPic = Selection.InlineShapes.AddPicture("D:\mjk\1.png") MyPic.ConvertToShape '转换图片，为环绕方式做准备 With ActiveDocument.Shapes.Item(2) .WrapFormat.Type = wdWrapNone .ZOrder ZOrderCmd:=msoSendBehindText '设置图片环绕方式为"衬与文字下方" .Left = 250 .Top = 620 .Anchor.Cut Selection.GoTo wdGoToPage, wdGoToAbsolute, , 2 '把图片移动到相应位置 Selection.Paste End With Set MyPic = NothingEnd Sub希望我的回答可以帮到您
