已把插入好的圖片設定環繞方式為“四周型”。
MsgBox ActiveDocument.Shapes(1).AlternativeText “沒有顯示”
If ActiveDocument.Shapes(1).AlternativeText = "D:\wordkaoshi\冬奧會五環.bmp" Then
score = score + 1
End If
想做個Word自動評分的代碼
uj5u.com熱心網友回復：
Sub GetSourceFromLinkedShape()Dim shp As Word.Shape
Dim sSource As String
For Each shp In ActiveDocument.shapes
If shp.Type = msoLinkedPicture Then
sSource = shp.LinkFormat.SourceFullName
End If
Next
End Sub
uj5u.com熱心網友回復：
謝謝！我回去試試！uj5u.com熱心網友回復：
nashma.blog.jp：還是不行啊！uj5u.com熱心網友回復：
報什么錯誤？轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/117963.html