В Visual Basic для приложений (VBA) вы можете легко добавлять фигуры, чтобы повысить визуальную привлекательность документов Excel, Word или PowerPoint. В этой статье вы познакомитесь с несколькими методами добавления овальной формы с помощью VBA, приведя примеры кода для каждого подхода. Независимо от того, являетесь ли вы новичком или опытным разработчиком VBA, это подробное руководство поможет вам использовать овальные формы в ваших проектах VBA.

Метод 1: использование метода Shapes.AddShape
Метод Shapes.AddShape позволяет добавлять в проект VBA различные типы фигур, включая овалы. Вот пример того, как добавить овал с помощью этого метода:

Sub AddOvalShape_Method1()
    Dim myShape As Shape
    Set myShape = ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 100, 50)
    ' Customize the oval shape properties
    With myShape
        .Fill.ForeColor.RGB = RGB(255, 0, 0) ' Red fill color
        .Line.Visible = True
        .Line.ForeColor.RGB = RGB(0, 0, 255) ' Blue border color
    End With
End Sub

Метод 2: использование метода Shapes.AddShape с параметром ShapeType
В качестве альтернативы вы можете использовать метод Shapes.AddShape с параметром ShapeType, чтобы добавить овальную форму. Вот пример:

Sub AddOvalShape_Method2()
    Dim myShape As Shape
    Set myShape = ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, Left:=100, Top:=100, Width:=100, Height:=50)
    ' Customize the oval shape properties
    With myShape
        .Fill.ForeColor.RGB = RGB(255, 0, 0) ' Red fill color
        .Line.Visible = True
        .Line.ForeColor.RGB = RGB(0, 0, 255) ' Blue border color
    End With
End Sub

Метод 3: использование метода Oval из коллекции Shapes
Коллекция Shapes в VBA предоставляет метод Oval для непосредственного добавления овальной формы. Вот пример:

Sub AddOvalShape_Method3()
    Dim myShape As Shape
    Set myShape = ActiveSheet.Shapes.Oval(100, 100, 100, 50)
    ' Customize the oval shape properties
    With myShape
        .Fill.ForeColor.RGB = RGB(255, 0, 0) ' Red fill color
        .Line.Visible = True
        .Line.ForeColor.RGB = RGB(0, 0, 255) ' Blue border color
    End With
End Sub

Метод 4: использование метода AddShape объекта Selection
Если вы хотите добавить овальную форму к текущему выбранному диапазону или объекту, вы можете использовать метод AddShape объекта Selection. Вот пример:

Sub AddOvalShape_Method4()
    Dim myShape As Shape
    Set myShape = Selection.ShapeRange.AddShape(msoShapeOval, 100, 100, 100, 50)
    ' Customize the oval shape properties
    With myShape
        .Fill.ForeColor.RGB = RGB(255, 0, 0) ' Red fill color
        .Line.Visible = True
        .Line.ForeColor.RGB = RGB(0, 0, 255) ' Blue border color
    End With
End Sub

В этой статье мы рассмотрели несколько методов добавления овальной формы в VBA. Независимо от того, предпочитаете ли вы использовать метод Shapes.AddShape, метод Shapes.Oval или метод AddShape объекта Selection, теперь у вас есть множество возможностей для включения овальных фигур в ваши проекты VBA. Поэкспериментируйте с предоставленными примерами кода и настройте свойства овальной формы в соответствии со своими требованиями. Наслаждайтесь созданием визуально привлекательных приложений VBA!