Пример программирования в Power Point на Visual Basic for Application

Иногда рисуя большую схему, сначала пронумеруешь, а потом понимаешь, что забыл вставить какой-нибудь блок с номером в середине списка. Вот код, который облегчает труд:)

Sub Change()
Dim foundText As Object
Dim oTmpRng As TextRange

For i = 66 To 24 Step -1 ' номера текстовых полей, которые надо менять
For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Set oTxtRng = shp.TextFrame.TextRange
Set oTmpRng = oTxtRng.Replace(FindWhat:=CStr(i), _
Replacewhat:=CStr(i + 2), WholeWords:=False)
End If
Next
Next
Next i
End Sub

Конструктор тестов из Экселя в Ворд (на VBA)
Макрос VBA из Excel в Access
Макрос VBA из RSS-ленты в Access
Макрос VBA из текстового файла в Access
Примеры макросов работы с Visio из под Access




Рейтинг@Mail.ru




 
 
Апшеронск Спорт VBA Форекс Сочи-2014 Нейросети Студентам
Связь с Администратором сайта, E-mail: apsheronka@mail.ru
Апшеронск, Краснодарский край

Размещение рекламы на сайте
Карта сайта

При перепечатке материалов сайта http://apsheronsk.bozo.ru - обязательная активная гиперссылка на сайт!


`