5,139
社区成员
发帖
与我相关
我的任务
分享利用VBA为什么不能获取Word插入好的图片的文件名？请大神指教！谢谢！
已把插入好的图片设置环绕方式为“四周型”。
MsgBox ActiveDocument.Shapes(1).AlternativeText “没有显示”
If ActiveDocument.Shapes(1).AlternativeText = "D:\wordkaoshi\冬奥会五环.bmp" Then
score = score + 1
End If
想做个Word自动评分的代码
MsgBox ActiveDocument.Shapes(1).AlternativeText “没有显示”
If ActiveDocument.Shapes(1).AlternativeText = "D:\wordkaoshi\冬奥会五环.bmp" Then
score = score + 1
End If
想做个Word自动评分的代码
...全文
请发表友善的回复…
发表回复
mslearn-nashma 2019-12-09
- 打赏
- 举报
报什么错误？
weixin_45820559 2019-11-07
- 打赏
- 举报
nashma.blog.jp：还是不行啊！
weixin_45820559 2019-11-06
- 打赏
- 举报
谢谢！我回去试试！
mslearn-nashma 2019-11-02
- 打赏
- 举报
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
