Поделиться через

Возврат объектов из коллекций

  • Статья

Метод Item возвращает один объект из коллекции. В следующем примере для переменной firstPres задается объект Presentation , который представляет переменную presentation one и объект Presentation , представляющий презентацию.

Set firstPres = Presentations.Item(1)

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

Set firstPres = Presentations(1)

Дополнительные сведения о конкретной коллекции см. в разделе справки по этой коллекции или в методе Item для коллекции.

Именованные объекты

Хотя обычно можно указать целочисленное значение с помощью метода Item , может быть удобнее возвращать объект по имени. Многим объектам присваиваются автоматически созданные имена при их создании. Например, первый слайд, который вы создаете, будет автоматически называться "Слайд1". Если первые две создаваемые фигуры представляют собой прямоугольник и овал, имена по умолчанию будут иметь следующие имена: "Прямоугольник 1" и "Овал 2". Может потребоваться присвоить объекту более понятное имя, чтобы его было проще ссылаться позже. Чаще всего это делается путем задания свойства Name объекта. В следующем примере задается понятное имя слайда при его добавлении. Затем для ссылки на слайд можно использовать имя вместо номера индекса.

ActivePresentation.Slides.Add(1, 1).Name = "Home Page Slide"
With ActivePresentation.Slides("Home Page Slide")
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient _
        msoGradientDiagonalDown, 1, msoGradientBrass
End With

Стандартные значения индекса

Некоторые коллекции имеют предопределенные значения индекса, которые можно использовать для возврата отдельных объектов. Каждое предопределенное значение индекса представлено константой. Например, вы указываете константу PpTextStyleType с помощью метода Item коллекции TextStyles , чтобы вернуть один стиль текста.

В следующем примере задаются поля для основной области на слайдах в активной презентации.

With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).TextFrame
    .MarginBottom = 50
    .MarginLeft = 50
    .MarginRight = 50
    .MarginTop = 50
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.