☰

vba 宏如何获取 alt 文本标题引用/属性

tag-icon • tag-icon microsoft-word vba
vba 宏如何获取 alt 文本标题引用/属性

在 VBA 中，如何获取对替代文本的 TITLE 部分的引用？它不是 img.AlternativeText，而是描述。并且 img.Title 给出“<应用程序定义或对象定义的错误>”，我无法获取或设置它。如果我尝试获取或设置它，我会得到“运行时错误 445：对象不支持此操作”，即使它显示在属性列表中。

wdDoc.ActiveWindow.Document.InlineShapes(1).Title = "test"

在此处输入图片描述

笔记根据此处的官方文档，我应该能够编辑此字段：

https://docs.microsoft.com/en-us/office/vba/api/word.inlineshape.title

这是 VBA 中 Title 属性的显示内容：

在此处输入图片描述

代码：

Set wdDoc = Documents.Open(FileName:=doc, AddToRecentFiles:=False, Visible:=False)
For Each sh In wdDoc.ActiveWindow.Document.InlineShapes 
    msgbox sh.Title
Next sh

得出的结果为：

在此处输入图片描述

在试图显示标题的那一行。

答案1

这对我有用。

'This displays the existing Alt Text Title.
MsgBox ActiveDocument.InlineShapes(1).Title
'So does this.
MsgBox ActiveWindow.Document.InlineShapes(1).Title

'This changes the Alt Text Title.
ActiveDocument.InlineShapes(1).Title = "New!"

'This displays the new Alt Text Title.
MsgBox ActiveDocument.InlineShapes(1).Title

（Word 2013）

相关内容