如何判断是否插入指定的外部图片

guyuls

用vba判定操作是否正确
有外部文件“XX.jpg”，通过插入图片的方式，保存在word中，然后需要通过vba判定是否插入了名为“XX.jpg”的图片

Dim tu As Shape
    For Each tu In .Shapes
        If tu.WrapFormat.Type = 1 Then score = score + 1
        If tu.Width = 113.35 Then score = score + 1
        If tu.Height = 85 Then score = score + 1
        if tu.(？？)="XX.jpg"  Then score = score + 1
    Next


目前写了  环绕方式、宽高属性 都能找到
就是这个文件名不知道怎么判定。有name属性，但是结果为Picture1

盼望各位大大能帮忙解惑，万分感谢！

另： 我找到用剪贴画的 .AlternativeText 属性进行判断的方式，在这里应该不适用，
操作部分不可修正，只是进行操作后的判定

guyuls

啊 还有一个位置属性 .top好像是相对的 是否存在绝对位置的属性

guyuls

没有人有思路吗

413191246se

* 楼主，图形是 Shape，图片是 InlineShape，两者是不同的，可用
MsgBox ActiveDocument.InlineShapes.Count 语句来显示图片数量。
* 插入图片后，如何得到它的文件名，我试了再三，也未得知。
* 但换一个思路：插入图片是可以用 VBA 宏来控制的（图片最好命名为系列字母+数字，如 China001 之类，批量改名可用 ACDSee），只要控制文件名就可以了，下面是录制宏：
Selection.InlineShapes.AddPicture FileName:="E:\PicIcon\Clip01.jpg"

zmj9151

插入图片的同时,设置该图片的AlternativeText为文件名.再次插入时遍历文件名即可

daibao88

调用API，两幅画逐像素比较，如果图片在word压缩过就不知道怎么解决了。

guyuls

413191246se 发表于 2021-12-23 22:57
* 楼主，图形是 Shape，图片是 InlineShape，两者是不同的，可用
MsgBox ActiveDocument.InlineShapes.Co ...

谢谢

我现在是需要 对操作后的文件进行判定 所以插入过程中的文件名是没有用的

然后 我这个图片已经改过环绕方式了 不是嵌入式 所以已经转换为shape了

guyuls

daibao88 发表于 2021-12-24 09:54
调用API，两幅画逐像素比较，如果图片在word压缩过就不知道怎么解决了。

谢谢 我试试看

guyuls

zmj9151 发表于 2021-12-24 08:18
插入图片的同时,设置该图片的AlternativeText为文件名.再次插入时遍历文件名即可

谢谢 我也有找到这种方法
但是在我这里不适用  操作部分是A完成的  现在是B负责核准 所以......

guyuls

最终也没弄出来 搞成有图片就送分了

关于位置 网上找到一个  放这里分享下
要求是 判断是否在第四段插入 图片

    tu.ConvertToInlineShape '按嵌入式的找 InlineShapes才有Paragraphs
    If .InlineShapes.Count > 0 Then  '判定是否在第四段
        If InStr(.InlineShapes(1).Range.Paragraphs(1).Range.Text, "第四段某特殊字符") > 0 Then score = score + 2
    End If

就这样  不弄了