Как создать список или другой раскрывающийся список с массивом, в котором можно выбрать значение в режиме редактирования с помощью PowerPoint vba? - PullRequest
Новая
       67

Как создать список или другой раскрывающийся список с массивом, в котором можно выбрать значение в режиме редактирования с помощью PowerPoint vba?

0 голосов
/ 23 декабря 2018

Я хотел бы создать раскрывающееся меню, в котором параметры получены из массива заголовков слайдов и позволяют пользователю выбирать значение из списка в режиме редактирования (для целей настройки презентации).Я могу видеть только то, как создать списки и комбинированные списки, которые можно выбрать в представлении представления.

Я нашел эту функцию для создания массива заголовков слайдов, но не знаю, как ее вызвать.Я продолжаю получать ошибки несоответствия.Может кто-нибудь помочь, пожалуйста? 

' Source: https://stackoverflow.com/questions/33509765/vba-powerpoint-slide-title
' Function to return an array of title texts from a presentation
' Written by Jamie Garroch at http://youpresent.co.uk
' Inputs : None
' Outputs : Array of title strings
Public Function GetTitlesArr() As Variant
  Dim oSld As Slide
  Dim oShp As Shape
  Dim iCounter As Integer
  Dim arrTitles() As String
  For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
      With oShp
        If .Type = msoPlaceholder Then
          Select Case .PlaceholderFormat.Type
            Case ppPlaceholderCenterTitle, ppPlaceholderTitle
              ReDim Preserve arrTitles(iCounter)
              arrTitles(iCounter) = oShp.TextFrame.TextRange.Text
              iCounter = iCounter + 1
          End Select
        End If
      End With
    Next
  Next
  GetTitlesArr = arrTitles
End Function
...