html动态图片置于底层,求设置图片为“浮于文字下方，居中，置于底层的代码。...

谢谢守柔大哥，找了好久就是想找你的那两句关于设置图片显示方式的代码，谢谢你给我提供。不过我更想知道那里能找到这方面的学习材料。这东西太难找了。word一册通也看不到相关的代码。你的那个代码集也没有找到。现在有个问题想请教，就是如何再插入图片的时候用变量来表示文件路径。

Set MyShape = .Shapes.AddPicture("a")我试了很多种方式都没有成功。比如在Set MyShape = .Shapes.AddPicture(chr(34)& a & chr(34))这里也许不能直接用引号，所以我这样弄他。但是问题依然。能指出我的问题所在么。谢谢

Sub Macro4()

'

Dim MyShape As Shape, MyPath As String

With ActiveDocument

MyPath = ThisDocument.Path '你可以通过引用活动文档的路径作为图片的相对路径等等

a = MyPath + "\gost.jpg"

MsgBox a

Set MyShape = .Shapes.AddPicture("chr(34)& a & chr(34))

With MyShape

.Left = wdShapeCenter '水平居中

.Top = 100 '页面顶部距离

.WrapFormat.Side = wdWrapBoth

.WrapFormat.Type = 3

.ZOrder 5

.RelativeVerticalPosition = wdRelativeVerticalPositionPage

.RelativeHorizontalPosition = wdRelativeVerticalPositionPage

End With

End With

End Sub