Selection.InlineShapes.AddPicture FileName:="C:\Cap1.bmp", LinkToFile:= _
        False, SaveWithDocument:=True
        
   Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.InlineShapes(1).LockAspectRatio = msoTrue
   Selection.InlineShapes(1).Height = 20
   Selection.InlineShapes(1).Width = 20
--------------------------------------------------------------------------------------------
Selection.InlineShapes.AddPicture FileName:="C:\Cap1.bmp", LinkToFile:= _
        False, SaveWithDocument:=True
        
   Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend这两句我已经会了 ,下面设置图片大小那几句在vc中怎么写呢?用ShapeRange类吗?苦恼了很久,帮帮忙谢谢了