帮写个word的宏

谁vb比较好，帮忙写个“设置图片大小按钮”
按钮的功能－－－单点后，将选中图片，设置为14×9.7

注：已经在工具－－选项－－编辑－－图片插入/粘贴方式 设为“浮于文字上方”

多处提问：无人回答
http://tieba.baidu.com/f?kz=418468327
http://softbbs.pconline.com.cn/topic.jsp?tid=8767241&pageNo=1&aid=53555873#floor1
http://bbs.yesky.com/viewthread2.php?tid=15585467&extra=page%3D1
http://tieba.baidu.com/f?kz=414306509
http://tieba.baidu.com/f?kz=414307989
我成功了，，原来将嵌入型转化下就行了
（嵌入型）
Selection.Inli

Sub Macro1()

Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoFalse
Selection.InlineShapes(1).Height = 396.85
Selection.InlineShapes(1).Width = 275.55
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
End Sub