VBA如何判断点击了哪个图片

aman1516

perfect131 发表于 2024-3-6 18:38
原来是这样

这个简单直接，太棒了！
感谢两位老师帮了个大忙，谢谢！

aman1516

PPT中，对图片批量指定宏，省得手工设置：

1. Sub AddMacroActionToShape()
   
2.     Dim oSlide As Slide, oShape As Shape
   
3.     Set oSlide = ActivePresentation.Slides(1)      ' 指定页幻灯片
   
4.     For Each oShape In oSlide.Shapes
   
5.         With oShape.ActionSettings(ppMouseClick)
   
6.             .Action = ppActionRunMacro
   
7.             .Run = "Mouseclick"     ' 指定宏的名称
   
8.         End With
   
9.     Next
   
10. End Sub

复制代码

shenjianrong163

perfect131 发表于 2024-3-6 18:38
原来是这样

老师，你这代码怎么调用呢？能发下附件吗？

aman1516

学习后，分享一个简单应用：
PPT点击展示图片.rar (281.87 KB, 下载次数: 12)

2024-3-6 22:30 上传

点击文件名下载附件

可在此基础上可作更多的应用拓展......

aman1516

播放状态下随意鼠标拖动图片的方法代码不知有无可简化些

aman1516

PPT放映状态下随意拖拽图片（源代码公开）
https://club.excelhome.net/thread-758307-1-1.html

没想到本论坛工到一个很好的f示例