VBA中怎样获取插入图片的大小？请高手帮忙！

Question

我现在想用VBA实现ＷＯＲＤ表格中两列按序号对齐，其中一列中有图，而另外一列没有，请问：我应该怎么处理？

Answer 1

Column.PreferredWidthType 
Column.PreferredWidthRow.HeightRule
Row.Height

Answer 2

问题描述如下：（数据处于表格中）
a.1.  dfads                        a.1. adfadfadf
a.2.  afaf df(这有张插入的图）     a.2. dfasdfaf
a.3.  fasfadf                      a.3. asdfadf
如上，因为图片的高度不一，不能设置插入图片的大小．所以我的想法是获得图片的大小，再在a.1.与a.2.之间插入相应的行数．
请问是否可行？哪位有没有更好的办法？

Answer 3

兄弟,借你的地盘发个问题.
我也是要在word里插入粘贴图片.用表格定位.但vb复制图片到word之后,selection为选中图片.我要对word继续操作,如何转到文字编辑状态下来?
用   Selection.MoveDown Unit:=wdLine, Count:=1
     Selection.TypeParagraph好象不行http://community.csdn.net/Expert/topic/5104/5104184.xml?temp=.8040888
请各位帮帮忙.

Answer 4

是用AddPicture插入图片的吗？
Function AddPicture(FileName As String, [LinkToFile], [SaveWithDocument], [Left], [Top], [Width], [Height], [Anchor]) As Shape
插入图片同时得到一个shape对象，如果插入时未指定尺寸，那么可以用shape.height和shape.width来获取

Answer 5

呵呵，写得再详细点吧，以下代码是调试通过的：Dim objWord As Word.Application, objShape As Word.ShapePrivate Sub Command1_Click()
    Set objWord = New Word.Application
    objWord.Visible = True
    Set objShape = objWord.ActiveDocument.Shapes.AddPicture("c:\test.bmp")
    Debug.Print objShape.Height, objShape.Width
End Sub