vba - PowerPoint VBA - 屏幕上的 SlideRange 位置

Question

我正在创建一个 PPT 加载项，我正在努力寻找是否可以确定屏幕上 SlideRange 位置的答案。

我想在特定位置打开一个用户表单（例如，从 SlideRange 的左上角开始，left = 10，top = 10）。不幸的是，它的位置是基于屏幕分辨率的。由于可以更改分辨率和修改 PPT 视图类型，我无法确定 SlideRange 的准确位置。

可以用VBA做吗？

提前致谢！乔丹

Answer 1

SlideRange 没有特定的位置......它是幻灯片的集合，当您要将表单定位在 10,10 时，不清楚您使用的是什么单位。但在正常的全屏视图中，您可以获得幻灯片放映窗口坐标，如下所示：

With SlideShowWindows(1) Debug.Print .Left Debug.Print .Top Debug.Print .Height Debug.Print .Width End With

要获取屏幕像素的结果，您必须使用 Win API 调用来获取屏幕 DPI（每英寸点数）。

英寸 = 点 / 72 像素 = 英寸 * DPI

Answer 2

<<你知道PPT中是否可以捕捉鼠标事件吗？

仅当鼠标单击更改选择时，并且如您所知，这并非总是如此。

可能有某种方法可以通过 Win API 来实现，但 PPT 本身并没有这种方法。