Случайные окружности — макрос для 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 кружочков разнообразных цветов.