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

Set MyShape = .Shapes.AddPicture("a")我試了很多種方式都沒有成功。比如在Set MyShape = .Shapes.AddPicture(chr(34)& a & chr(34))這里也許不能直接用引號(hào)，所以我這樣弄他。但是問題依然。能指出我的問題所在么。謝謝

Sub Macro4()

'

Dim MyShape As Shape, MyPath As String

With ActiveDocument

MyPath = ThisDocument.Path '你可以通過引用活動(dòng)文檔的路徑作為圖片的相對(duì)路徑等等

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。