SlideIDs 属性

返回指定命名幻灯片放映的一个幻灯片 ID 数组。只读。Variant 类型。

示例

本示例将当前窗口中的当前幻灯片添加到自定义幻灯片放映“Marketing Short Version”中。请注意，要保存修改后的自定义幻灯片放映，必须删除原自定义放映，再使用相同名称重新添加。另请注意，要调整包含于 Variant 变量中的数组大小，必须在调整该数组大小前清楚地声明该变量。

'NOTE - The following code line is NOT optional.
'Can't redim array without this
Dim customShowSlideIDs As Variant
Dim customShowToExpand As NamedSlideShow

customShowName = "Marketing Short Version"
Set customShowToExpand = ActivePresentation.SlideShowSettings _
    .NamedSlideShows(customShowName)
slideToAddID = ActiveWindow.View.Slide.SlideID
customShowSlideIDs = customShowToExpand.SlideIDs
numSlides = UBound(customShowSlideIDs)

ReDim Preserve customShowSlideIDs(numSlides + 1)

customShowSlideIDs(numSlides + 1) = slideToAddID
customShowToExpand.Delete
ActivePresentation.SlideShowSettings.NamedSlideShows _
    .Add customShowName, customShowSlideIDs