PowerPointで正確な1/4円（四分円）を作る方法

PowerPointで正確な1/4円（四分円）を図形を組み合わせて作る方法をご紹介します。

図形でアバウトな1/4円を作ることはできますが、もっと正確に作りたいという方におすすめのテクニックです。

後半では、PowerPoint VBAを使って一瞬で1/4円を作るマクロもご紹介します。

1/4円を適当に作成する

図形の「部分円」を使うとアバウトな1/4円を作ることができます。

「ホーム」タブ →「図形描画」グループ →「図形ツール」→「基本図形」→「部分円」を選択します。

スライドをクリックすると「3/4円」が描けます。右側の調整ハンドルを180°回転させると1/4円に変形することができます。

しかし、調整ハンドルが円の1/4の位置でぴったり固定されないので、目分量で合わす必要があり、調整に手間がかかります。

プレースホルダーも余白が多くなり、位置合わせがしづらい形状になるため、あまり美しい作り方とは言えません。

1/4円を正確に作成する

図形を組み合わせて結合すると1/4円を正確に作ることができます。

「基本図形」→「楕円」を選択します。

スライドをクリックすると正円が描けます。

続いて、「基本図形」→「L字」を選択します。

スライドをクリックすると正円と同じサイズのL字が描けます。

正円とL字を整列で揃えます。※見やすくするためにL字の色を変えています。

正円 → L字の順に選択し、「描画ツールの書式」タブ →「図形の挿入」グループ →「図形の結合」→「単純型抜き」を選択して結合します。

1/4円の完成です。

1/4円をVBAで作成する

1/4円は、VBAを使うと自動で作れます。図形の結合で作ると手間がかかるため、頻繁に作るのであれば自動化しておくのがおすすめです。

1/4円を作成するマクロ

Sub 図形の1分の4円を作成()

    Dim n As Long
    Dim w As Double
    Dim h As Double
    Dim diameter As Double
    Dim shp As Shape
    
    '選択中のスライド番号を取得
    n = ActiveWindow.Selection.SlideRange.SlideIndex
    
    'スライドサイズ取得
    w = ActivePresentation.PageSetup.SlideWidth
    h = ActivePresentation.PageSetup.SlideHeight
    
    '円の直径「cm」を入力
    diameter = 6
    
    '直径を「cm」に変換
    diameter = Round(diameter * 720 / 25.4, 1)

    With ActivePresentation

        '正円を作成
        Set shp = .Slides(n).Shapes.AddShape( _
        Type:=msoShapeOval, _
        Left:=(w - diameter) / 2, _
        Top:=(h - diameter) / 2, _
        Width:=diameter, _
        Height:=diameter)
        
        '図形の色
        shp.Fill.ForeColor.RGB = RGB(0, 0, 0)
        '図形の線なし
        shp.Line.Visible = msoFalse
        '図形の名前
        shp.Name = "shp1"
        
        '長方形を作成
        Set shp = .Slides(n).Shapes.AddShape( _
        Type:=msoShapeRectangle, _
        Left:=(w - diameter) / 2, _
        Top:=(h - diameter) / 2 + diameter / 2, _
        Width:=diameter, _
        Height:=diameter / 2)

        '図形の名前
        shp.Name = "shp2"
        
        '長方形を作成
        Set shp = .Slides(n).Shapes.AddShape( _
        Type:=msoShapeRectangle, _
        Left:=(w - diameter) / 2, _
        Top:=(h - diameter) / 2, _
        Width:=diameter / 2, _
        Height:=diameter)

        '図形の名前
        shp.Name = "shp3"
        
        '3つの図形を単純型抜き
        .Slides(n).Shapes.Range(Array("shp1", "shp2", "shp3")) _
        .MergeShapes (msoMergeSubtract)

    End With
End Sub

実行結果

マクロを実行すると、スライドの中央に黒色の1/4円が作成されます。

1/4円の幅は「diameter（直径）」の値の1/2になります。