[已解决]VBA worksheet 事件使用

excel_xb

excel 引用外部图片 路径名称不变，图片更新，excel同步更新
现在每次打开excel都可以看到最新的图片
Private Sub Workbook_Open()
    ActiveSheet.Pictures.Delete
    With ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\图片\ABC.JPG")
    Set MR = Range("H1")
        .Top = MR.Top + 3
        .Left = MR.Left + 3
        .Width = MR.Width - 6
        .Height = MR.Height - 6
    End With
End Sub
能不打开excel也让图片更新？相对于excel直接读取图片路径，图片内容变了，excel直接变了，不存在修改excel的操作，现在每次打开后关闭都提示是否保存修改

最佳答案

月排行榜 / 总排行榜

爱疯

2015-9-30 18:49

样式资源3.rar (15.1 KB, 下载次数: 56)

2015-9-30 18:49 上传

点击文件名下载附件

修改：

1）SaveWithDocument:=msoFalse

2）代码移到了sheet1里。因为执行一次就行了，如果源图片被删除或移动，会显示链接失效。

跳转到最佳答案楼层

excel_xb

有大神在不，有空帮忙看看，有没有办法解决

爱疯

是想不提示么？在原代码里，当更新图片后，加句保存，就不会再提示了。

excel_xb

爱疯 发表于 2015-9-29 11:59
是想不提示么？在原代码里，当更新图片后，加句保存，就不会再提示了。

只要是想改变vba执行的方式，现在是打开excel执行，怎样让它在任何操作前就执行。
实现excel直接读取外部图片路径，外部图片内容变了，excel里的图片也直接变了。
要么excel没有更新图片的操作，要么在所有操作前更新

excel_xb

我想要的是类似超链接一样一直关联到外部图片，但是它本身也是要显示的，这样外部图片变更（图片路径和名称不变），excel不用任何操作，第三方解析excel时获取的已经是最新的图片了（说白了，就是在excel里能拿到外部图片的路径，并且能够在excel里展示）

爱疯

Private Sub Workbook_Open()
    ActiveSheet.Pictures.Delete
    With [h1]
        Set shp = ActiveSheet.Shapes.AddPicture(Filename:=ActiveWorkbook.Path & "\图片\ABC.JPG", _
                                                LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
                                                Left:=.Left + 3, Top:=.Top + 3, Width:=.Width - 6, Height:=.Height - 6)
    End With
End Sub
样式资源2.rar (12.3 KB, 下载次数: 8)

2015-9-30 16:29 上传

点击文件名下载附件


这样可以么

excel_xb

爱疯 发表于 2015-9-30 16:30
Private Sub Workbook_Open()
    ActiveSheet.Pictures.Delete
    With [h1]

可能是我没有描叙清楚，我主要是想excel直接关联到外部图片，保持紧关联(引入的图片不在，excel则无法显示图片)
而不是像通用的，插入图片后，原图片删除，excel依旧可以显示

爱疯

样式资源3.rar (15.1 KB, 下载次数: 56)

2015-9-30 18:49 上传

点击文件名下载附件

修改：

1）SaveWithDocument:=msoFalse

2）代码移到了sheet1里。因为执行一次就行了，如果源图片被删除或移动，会显示链接失效。

excel_xb

爱疯 发表于 2015-9-30 18:49
修改：

1）SaveWithDocument:=msoFalse

谢谢爱疯大神！