请教word中插图片的问题?(200分)

  • 主题发起人 主题发起人 w_anghe
  • 开始时间 开始时间
W

w_anghe

Unregistered / Unconfirmed
GUEST, unregistred user!
要用程序在word中中插入一张图片,要把图片的版式设置成“衬于文字下方”“右对齐”,
我已经实现了插入图片,但不知道怎么设置版式,我录制了宏也没有从代码中看出怎么做,
请各位大侠帮忙[:)]
TypeParagraph;
oLinkToFile := False;
oSaveWithDocument := True;
sFileName := 'a.jpg';
Selection.InlineShapes.AddPicture(sFileName, oLinkToFile, oSaveWithDocument, EmptyParam);
 
再加200分,希望各位大侠踊跃帮忙
来者有分,能解决问题者另开新贴独得200分[:)]
 
宏:

Selection.ShapeRange.Left = wdShapeLeft
Selection.ShapeRange.Top = CentimetersToPoints(0)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
 
我帮你提下。
 
我帮你提前
 
联系我:MSN:Chenfreax@hotmail.com一定解决
 
wrapformat.settype(5)就可以了
 
后退
顶部