Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Office для пользователей
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

Решение:

Код макроса может быть, например, таким:

Public Sub InsertCopyRight()

Dim oSlide As Slide

Dim oShape As Shape

 

'Проходим циклом по всем слайдам в презентации

For Each oSlide In Application.ActivePresentation.Slides

 

'Для каждого слайда создаем надпись (в виде объекта Shape)

'Нужные значения для числовых параметров Left , Top , Width и Height находим

'подбором или через макрорекордер

Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 500, 510, 210, 40)

 

'Доступ к тексту — через вложенные объекты TextFrame и TextRange

oShape.TextFrame.TextRange.Text = Chr(169) & " Академия специальных курсов, 2006"

 

'Занимаемся украшательством

oShape.TextFrame.TextRange.Font.Size = 12

oShape.TextFrame.TextRange.Font.Bold = msoTrue

Next

 

End Sub

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru