利用VBA为什么不能获取Word插入好的图片的文件名？请大神指教！谢谢！

weixin_45820559 2019-10-31 03:38:35

已把插入好的图片设置环绕方式为“四周型”。
MsgBox ActiveDocument.Shapes(1).AlternativeText “没有显示”

If ActiveDocument.Shapes(1).AlternativeText = "D:\wordkaoshi\冬奥会五环.bmp" Then
score = score + 1
End If

想做个Word自动评分的代码

...全文

225 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

mslearn-nashma 2019-12-09

打赏
举报

回复

引用 3 楼 weixin_45820559 的回复：

nashma.blog.jp：还是不行啊！

报什么错误？

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

如何在Word文档中插入多个带有文件名的图片？在Word文档中，可以使用“插入”功能一次快速插入多张图片。但是，有时在插入图片时需要插入文件路径和名称作为标题。使用VBA代码插入多个带文件名的图片安装wps的VBA宏以下VBA代码可以帮助您在插入图像时插入文件路径和名称作为标题，请按以下步骤操作：按住 ALT + F11 键打开 Microsoft Visual Basic应用程序窗口。然后，单击插页 > 模块，将以下代码复制并粘贴到打开的空白模块中：VBA代码：使用文件名插

VBA 向Word插入图片。

alt+f11 Sub PicWithCaption() Dim xFileDialog As FileDialog Dim xPath, xFile As Variant On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) If x...

文章目录1.打开一个需要插入的word2.打开Word VBA3.点击ThisDocument4.粘贴代码进去，然后关闭（复制代码，别手敲！！！）5.点击运行宏6.选择要插入的图片目录7.大功告成 1.打开一个需要插入的word 2.打开Word VBA 快捷键：Alt + F11 3.点击ThisDocument 4.粘贴代码进去，然后关闭（复制代码，别手敲！！！） Sub PicWithCaption() Dim xFileDialog As FileDialog Dim xPat

想要完整提取word文件中的图片，VBA宏中并没有相应的方法，在网络中能找的方法一般就2种，一种是另存为网页，然后在files文件夹下会自动产生图片，此方法有弊端，当一个图片重复使用则只会保存一份，当然这其实正常，而且是按照浏览顺序产生的文件名，如图中所示：这种还是比较简单的图片类型，但是如果你有需要顺序数据的需求的话，重复的图片会导致index错误。所以记录一种单独提取图片的方法，代码如下： int picindex = 0; forea

Office开发/ VBA

5,174

社区成员

17,906

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章