将字符串转换为属性或对象（VBA）

Question

我正在VBA for Powerpoint中构建一个数组。

子扫描演示文稿中每张幻灯片中的所有形状，我想存储到数组中：

1. 属性（作为字符串或对象）
2. 该财产的价值。

然后我会将此数组加载到列表框中。 当用户点击列表框中的所选项目时，我希望使用值设置属性。

在代码中它会是这样的：

Dim s_MyProperty as string
Dim s_Value as string

'Remember the variables
s_MyProperty = ".PageSetup.SlideHeight"
s_Value = ActivePresentation.PageSetup.SlideHeight

' This is the part I need help with
' Apply the property
Dim o_Object as object ' or something similar
o_Object = ActivePresentation
o_Object &  s_MyProperty = s_Value 

代码在Excel中类似。

有什么想法吗？

Answer 1

查看CallByName功能......这是一个老人而不是礼物。

CallbyName o_Object, s_MyProperty, VbLet, s_Value