Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Microsoft Office - совет дня


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Microsoft Office 2000 - Совет дня

Ведущий рассылки Степа

Макрос для PowerPoint

Ниже приведен макрос для PowerPoint, который автоматически рисует окружности случайных цветов в случайных местах на слайде.

Чтобы ввести макрос, откройте пустой слад. Из меню Файл выберите команду Сохранить как, дайте имя презентации и сохраните ее. Затем нажмите Alt + F8 и в диалоговом окне Макрос в строку ввода Имя напечатайте Окружность. Нажмите Создать и введите макрос, который приведен ниже. Обратите внимание, что PowerPoint автоматически добавить Sub Окружность() и End Sub.

Sub Окружность()
Dim Index As Integer
Randomize
For Index = 1 To 50
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeOval, 72#, 72#, 18#, 18#).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(Int((255 * Rnd) + 1), Int((255 * Rnd) + 1), Int((255 * Rnd) + 1))
.Fill.Visible = msoTrue
.Fill.Solid
End With
ActiveWindow.Selection.ShapeRange.Duplicate.Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft Int((600 * Rnd) + 1)
.IncrementTop Int((350 * Rnd) + 1)
End With
Next
ActiveWindow.Selection.Unselect

End Sub

Нажмите Alt + Q, что возвратиться в PowerPoint и нажмите Alt + F8. Дважды щелкните на Окружность и макрос создаст 50 кружочков разнообразных цветов.

Крым. Ялта. Путеводитель и справочная информация

Путеводитель по Ялте. Развлечения, отдых и лечение, проживание, транспорт и связь, достопримечательности. Словом, все, о чем вам стоит знать, отправляясь на отдых в Ялту.

Крым. Ялта. Путеводитель и справочная информация.


Another Banner Network

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться Рейтингуется SpyLog

В избранное