string - 将字符串转换为属性或对象 (VBA)

Question

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

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

属性(作为字符串或对象)

该属性(property)的值(value)。

然后我会将这个数组加载到一个列表框中。
当用户单击列表框中的选定项目时，我希望将属性设置为该值。

在代码中它会是这样的:

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