Ниже приведен макрос
для 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 кружочков разнообразных цветов.
Крым.
Ялта. Путеводитель и справочная информация
Путеводитель
по Ялте. Развлечения, отдых и лечение, проживание, транспорт и связь, достопримечательности.
Словом, все, о чем вам стоит знать, отправляясь на отдых в Ялту.