謝謝守柔大哥，找了好久就是想找你的那兩句關于設置圖片顯示方式的代碼，謝謝你給我提供。不過我更想知道那里能找到這方面的學習材料。這東西太難找了。word一冊通也看不到相關的代碼。你的那個代碼集也沒有找到?，F(xiàn)在有個問題想請教，就是如何再插入圖片的時候用變量來表示文件路徑。

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

總結

以上是生活随笔為你收集整理的html动态图片置于底层,求设置图片为“浮于文字下方，居中，置于底层的代码。...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。