word vba如何移动图片到指定页指定位置

oceanwinder

比如有5页,图片从第一页移至第3页 比如100，100处，谢谢先

loquat

关键你第一页的图片怎么确定啊，选定？
Selection.ShapeRange(1).Anchor.Cut
ActiveDocument.Range(100,100).Paste
如果你知道这个图片的序号为i
activedocument.Shapes(i).Anchor.Cut
ActiveDocument.Range(100,100).Paste
以上代码应该是适合shape对象的，inlineshape对象没有考虑在内

oceanwinder

loquat 发表于 2014-10-15 09:37
关键你第一页的图片怎么确定啊，选定？
Selection.ShapeRange(1).Anchor.Cut
ActiveDocument.Range(100,1 ...

谢谢朋友，这个学习了。
不过，我100，100本意是指磅数坐标。这个有办法做到吗？

loquat

磅数坐标？给我科普一下吧

oceanwinder

loquat 发表于 2014-10-16 22:59
磅数坐标？给我科普一下吧

Shape.Left 属性
返回或设置一个 Single 类型的值，该值代表指定形状或形状范围的水平位置（以磅为单位）。也可以是任何有效的 WdShapePosition 常量。可读写。

在同一页移动位置是可行的，但移到比如第二页，就不知道怎么个移法了。

oceanwinder

偶顶一下…………。

oceanwinder

结合上面朋友们的帮助，终于OK了。
With ActiveDocument.Shapes(ii & "")
              .Left = 20
              .Top = 20
             .Anchor.Cut
             Selection.GoTo wdGoToPage, wdGoToAbsolute, , ii & ""            
             Selection.Paste         
End With

pipiludaxian

能发给全的程序么

oceanwinder

pipiludaxian 发表于 2014-10-25 15:05
能发给全的程序么

这个功能全了啊， ii 是integer类型

majking

厉害,插入电子章,改了图片环绕方式后图片跑到页首,用这个方法移动图片file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image001.gif

1. Sub 指定位置插入图片()
   
2.     ActiveDocument.Tables(1).Cell(Row:=17, Column:=2).Select  '选中表1的17行2列单元格
   
3. 
   
4.     '在文档中插入图片并设置图片为衬与文字下方
   
5.     Dim MyPic As InlineShape
   
6.     Set MyPic = Selection.InlineShapes.AddPicture("D:\mjk\1.png")
   
7.         MyPic.ConvertToShape '转换图片，为环绕方式做准备
   
8.         
   
9.         With ActiveDocument.Shapes.Item(2)
   
10.                 .WrapFormat.Type = wdWrapNone
    
11.                 .ZOrder ZOrderCmd:=msoSendBehindText  '设置图片环绕方式为"衬与文字下方"
    
12.                 .Left = 250
    
13.                 .Top = 620
    
14.                 .Anchor.Cut
    
15.              Selection.GoTo wdGoToPage, wdGoToAbsolute, , 2 '把图片移动到相应位置
    
16.              Selection.Paste
    
17.         End With
    
18.   
    
19.     Set MyPic = Nothing
    
20. End Sub
    

复制代码