PowerPoint VBA - 在 16:9 和 4:3 之间切换

PowerPoint VBA - Switch between 16:9 and 4:3

我写VBA代码已经有几年了,但我记得我写了一个makro来在16:9和4:3之间切换,而不拉伸所有图像。但是,我找不到代码并决定从头开始。

现在,我注意到虽然我可以有效地重置图像的比例和位置,但所有其他元素也会移动位置。那么如何在切换时保持所有元素的位置和比例呢?

看来我可能需要在方向改变之前存储所有元素的位置。这是否意味着我必须创建整个文档的副本并以编程方式将每个元素放回原处?

如果用户决定将演示文稿切换到 4:3,保存文档,但随后改变主意并再次想要 16:9,该怎么办?原来的范围不会丢失吗??

So how can I maintain position and the scale of all elements when switching between?

编写大约 12 英里的代码。 BTDT 并将结果作为 PowerPoint 加载项出售 ;-)

但是如果您有最新版本的 PowerPoint,它可以很好地在 4:3 和 16:9 w/o 之间切换并扭曲任何内容。

它会是信箱,但我不知道如何避免w/o扭曲不同形状之间的关系。