SE の雑記

SQL Server の情報をメインに Microsoft 製品の勉強内容を日々投稿

VBA でお絵かきをしてきました

one comment

先日、Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応 という書籍を著者の 近田さん からいただく機会がありました。
# 近田さん、ありがとうございます!!

これをいただいた週末に Windows Azure BootCamp の LT を担当させていただく予定があったので、「これは VBA でやるしかない!! 」と思って VBA でお絵かきする LT をしてきました。
当日は Surface RT を使って LT をしていたのですが、Office RT では VBA は実行できないので、RemoteApp の環境に Office 2013 をインストールしてアプリケーションウィンドウを Surface RT に飛ばしていました。

LT を実施するために調べたことなどを少しまとめてみたいと思います。

■基本は Excel のマクロの記録を利用する


最終的には PowerPoint の VBA を使用したのですが、基本的な作業については Excel の VBA のマクロの記録を使いながら行うとよいと思います。

image

マクロの記録をした状態で曲線で線を引くとその線を引くための操作が VBA として記録されます。

Sub Macro1() 
' 
' Macro1 Macro 
'

' 
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 313.5, 54) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 252.25, 48.25, 163.1249606299, _ 
        114.5, 171, 150.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 178.8749606299, 187, 299.5, 265.75 _ 
        , 360.75, 271.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 422, 277.25, 545.8749606299, _ 
        221.3749606299, 538.5, 185.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 531.1250393701, 149.1250393701, _ 
        374.75, 59.75, 313.5, 54 
        .ConvertToShape.Select 
    End With 
    With Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorAccent5 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0.400000006 
        .Transparency = 0 
        .Solid 
    End With 
End Sub

塗りつぶしなどの操作も記録されますので、これでガシガシ絵を描いていきます。

私はオートシェイプ単位で記録をとめて、最終的には一つのサブプロシージャ内にまとめました。

使用されているのは Shape オブジェクト ですので、細かな設定に関してはこちらを見てるとよいかと思います。

■頂点の編集


マクロの記録では [頂点の編集] の操作は記録できないようですので、この点は気を付けるとよいかもしれないですね。

頂点を間違えたときは Esc などで修正するか、正しい線を記録したマクロを元となる Shape の VBA に入れて修正する等で調整していく必要があるかと。

# 基本的に一つの図形は一度の操作で書かれる VBA を記述していくイメージでしょうか。

また書式設定に関しては対象のオートシェイプを選択して変更した場合は、特定の名称を持つオートシェイプへの変更として記録されることがありますので、図形描画が終わって選択された状態のオートシェイプ (.ConvertToShape.Select で選択された Shape に対して Selection.ShapreRange.Fill) に変更を行うようにするとよいかと思います。

# VBA の記録でこの操作のコードになると思いますが。

[頂点を基準にする] を使用する場合には、AddNodes をする際に msoSegmentCurve ではなく、msoSegmentLine を使用すればかけますので、VBA を適宜修正しながら対応すると鋭角な曲線と緩やかな曲線を交えた線を VBA で引くことができます。

 

あとはこれの繰り返しで、マクロを記録しながらオートシェイプの図形を一つずつ書いていきます。

 

■Excel VBA を PowerPoint VBA に移植する


つづいてこれを PowerPoint の VBA に移植します。

# LT のデモなので Excel のままでもいいとは思いますがw

Excel の VBA で記録した図形描画を PowerPoint の VBA に移植する場合、以下の 2 箇所を書き換えれば PowerPoint の VBA で動作させることができます。

  • ActiveSheet → ActivePresentation.Slides(1)

    # Slieds の後の添字は描画をするスライド番号を 1 ~ 指定します。
  • Selection → ActiveWindow.Selection

実際に Excel の VBA を PowerPoint の VBA に変換したものがこちらです。

書き換えたのは上記の 2 箇所のみになります。

Sub Macro1() 
' 
' Macro1 Macro 
'

' 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 313.5, 54) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 252.25, 48.25, 163.1249606299, _ 
        114.5, 171, 150.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 178.8749606299, 187, 299.5, 265.75 _ 
        , 360.75, 271.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 422, 277.25, 545.8749606299, _ 
        221.3749606299, 538.5, 185.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 531.1250393701, 149.1250393701, _ 
        374.75, 59.75, 313.5, 54 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorAccent5 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0.400000006 
        .Transparency = 0 
        .Solid 
    End With 
End Sub

 

■図形の接合は VBA でどのように記述する??


PowerPoint の図形作成というと結合がありますが、これも VBA で行うことができます。

書籍をいただいた場に インストラクターのネタ帳 の伊藤さんがいらっしゃったので、「PowerPoint では図形の結合ができますがあれ、VBA だとどういうコードになるのでしょうね」とお話しさせていただいたところ、ShapeRange.MergeShapes を使っているのではといわれ、試してみたところビンゴでした。

# 伊藤さん、その節はありがとうございました!!

以下のような円のオートシェイプが [円/楕円 1][円/楕円 2] としてあった場合は、

image

ActivePresentation.Slides(1).Shapes.Range(Array("円/楕円 1", "円/楕円 2")).MergeShapes (msoMergeUnion)

というようなコードを書くと結合ができます。

image

Excel の VBA では接合の処理は記録ができない (現時点の最新の Excel である 2013 では接合の機能はついていないため) ので、接合をした図形を使いたい場合は自分で VBA を記述する必要があります。

■最終的に作ったもの


これでせっせと Excel VBA で絵を描いて、PowerPoint の VBA に変換して LT で発表したものがこちら。

空白のスライドですが、

image

以下のようにせっせと記録した VBA を実行すると、

image

こんな感じで、冒頭で紹介した書籍のキャラクターである翠田あいさん (@AiMidorita) が書かれます。

image

使ったコードは文末に記載したものになります。

既定の図形 / 既定の線を黒の 0.25 pt の状態にしていない場合は、以下のように青い線で描画されてしまいますが PowerPoint の VBA にコピペして実行で動くと思います。

image

LT の前にやったセッションで 1 点やらかしてしまったので LT の資料作る前に調べることがまだまだあったのですが…。

 

Sub Macro1()

    ' 髪(頂点) 
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 170.8928346457, 123.75) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 165.178503937, 120.5356692913, _ 
        159.4642519685, 117.3214173228, 154.8214173228, 114.1071653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 150.1785826772, 110.8929133858, _ 
        145.3571653543, 108.2142519685, 143.0357480315, 104.4642519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 140.7143307087, 100.7142519685, _ 
        139.9107086614, 94.4643307087, 140.8928346457, 91.6071653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 141.8749606299, 88.75, 145, _ 
        87.7678740157, 148.9285826772, 87.3214173228 
        .AddNodes msoSegmentCurve, msoEditingAuto, 152.8571653543, 86.8749606299, _ 
        162.678503937, 89.9107086614, 164.4642519685, 88.9285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 166.2499212598, 87.9464566929, _ 
        160.7142519685, 84.1964566929, 159.6428346457, 81.4285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 158.5714173228, 78.6607086614, _ 
        156.8750393701, 75, 158.0357480315, 72.3214173228 
        .AddNodes msoSegmentCurve, msoEditingAuto, 159.1964566929, 69.6428346457, _ 
        161.1607874016, 65.3571653543, 166.6071653543, 65.3571653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 172.0535433071, 65.3571653543, _ 
        183.8392913386, 68.75, 190.7142519685, 72.3214173228 
        .AddNodes msoSegmentCurve, msoEditingAuto, 197.5892913386, 75.8928346457, _ 
        203.3929133858, 81.0714173228, 207.8571653543, 86.7857480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.321496063, 92.5, 216.25, _ 
        105.5357480315, 217.5, 106.6071653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 218.75, 107.6785826772, 217.5, _ 
        98.3928346457, 215.3571653543, 93.2142519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 213.2143307087, 88.0356692913, _ 
        210.0892913386, 80.9821259843, 204.6428346457, 75.5357480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 199.1963779528, 70.0893700787, _ 
        190.5357480315, 63.4822047244, 182.6785826772, 60.5357480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 174.8214173228, 57.5892913386, _ 
        163.3928346457, 56.9643307087, 157.5, 57.8571653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 151.6071653543, 58.75, _ 
        148.2142519685, 61.8749606299, 147.3214173228, 65.8928346457 
        .AddNodes msoSegmentCurve, msoEditingAuto, 146.4285826772, 69.9107086614, _ 
        152.7677952756, 79.3749606299, 152.1428346457, 81.9642519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 151.5177952756, 84.5535433071, _ 
        147.0535433071, 81.7857480315, 143.5714173228, 81.4285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 140.0892913386, 81.0714173228, _ 
        134.2856692913, 79.0178740157, 131.25, 79.8214173228 
        .AddNodes msoSegmentCurve, msoEditingAuto, 128.2142519685, 80.6249606299, _ 
        125.6250393701, 82.8571653543, 125.3571653543, 86.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 125.0892913386, 89.6428346457, _ 
        126.5178740157, 95.9821259843, 129.6428346457, 100.1785826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 132.7677952756, 104.3750393701, _ 
        139.6428346457, 106.9643307087, 144.1071653543, 111.4285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 148.5714173228, 115.8928346457, _ 
        152.5, 121.428503937, 156.4285826772, 126.9642519685 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With 
    

    ' 髪(メイン) 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 162.8571653543, _ 
        317.1428346457) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 177.7678740157, 317.7677952756, _ 
        204.0178740157, 319.1071653543, 215.3571653543, 317.6785826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 226.6964566929, 316.25, _ 
        226.8749606299, 314.2856692913, 230.8928346457, 308.5714173228 
        .AddNodes msoSegmentCurve, msoEditingAuto, 234.9107086614, 302.8571653543, _ 
        237.9463779528, 283.5714173228, 239.4642519685, 283.3928346457 
        .AddNodes msoSegmentCurve, msoEditingAuto, 240.9821259843, 283.2142519685, _ 
        239.3750393701, 304.8214173228, 240, 307.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 240.6249606299, 310.1785826772, _ 
        241.1607086614, 309.6428346457, 243.2142519685, 299.4642519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 245.2677952756, 289.2856692913, _ 
        251.0714173228, 262.7678740157, 252.3214173228, 246.4285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 253.5714173228, 230.0892913386, _ 
        252.7677952756, 214.2857480315, 250.7142519685, 201.4285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 248.6607086614, 188.5714173228, _ 
        245.5357480315, 179.7322047244, 240, 169.2857480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 234.4642519685, 158.8392913386, _ 
        229.1964566929, 147.0535433071, 217.5, 138.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 205.8035433071, 130.4463779528, _ 
        184.7321259843, 121.9642519685, 169.8214173228, 119.4642519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 154.9107086614, 116.9642519685, _ 
        140.0892913386, 120.8928346457, 128.0357480315, 123.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 115.9822047244, 126.6071653543, _ 
        106.4285826772, 131.25, 97.5, 136.6071653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 88.5714173228, 141.9643307087, _ 
        80.8035433071, 147.0535433071, 74.4642519685, 155.8928346457 
        .AddNodes msoSegmentCurve, msoEditingAuto, 68.1249606299, 164.7321259843, _ 
        61.8749606299, 178.4821259843, 59.4642519685, 189.6428346457 
        .AddNodes msoSegmentCurve, msoEditingAuto, 57.0535433071, 200.8035433071, _ 
        59.3749606299, 213.2143307087, 60, 222.8571653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 60.6249606299, 232.5, 60.4463779528 _ 
        , 238.5714173228, 63.2142519685, 247.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 65.9821259843, 256.4285826772, 72.5 _ 
        , 269.4642519685, 76.6071653543, 276.4285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 80.7143307087, 283.3929133858, _ 
        85.5357480315, 285.1785826772, 87.8571653543, 289.2857480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 90.1785826772, 293.3929133858, _ 
        90.1785826772, 301.0714173228, 90.5357480315, 301.0714173228 
        .AddNodes msoSegmentCurve, msoEditingAuto, 90.8929133858, 301.0714173228, _ 
        90.3571653543, 292.3214173228, 90, 289.2857480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 89.6428346457, 286.2500787402, _ 
        86.8749606299, 281.9643307087, 88.3928346457, 282.8571653543 
        .AddNodes msoSegmentCurve, msoEditingAuto, 89.9107086614, 283.75, _ 
        92.8571653543, 289.4642519685, 99.1071653543, 294.6428346457 
        .AddNodes msoSegmentCurve, msoEditingAuto, 105.3571653543, 299.8214173228, _ 
        114.9107086614, 310, 125.8928346457, 313.9285826772 
        .AddNodes msoSegmentCurve, msoEditingAuto, 136.8749606299, 317.8571653543, _ 
        147.9464566929, 316.5178740157, 162.8571653543, 317.1428346457 
        .ConvertToShape.Select 
    End With

    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With

        
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 121.5, 295.5) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 126.25, 300.75, 121.4166929134, _ 
        302.3333070866, 128.5, 306 
        .AddNodes msoSegmentCurve, msoEditingAuto, 135.5833070866, 309.6666929134, _ 
        154.5833070866, 315.3333070866, 164, 317.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 173.4166929134, 319.6666929134, _ 
        176.25, 320.6666929134, 185, 319 
        .AddNodes msoSegmentCurve, msoEditingAuto, 193.75, 317.3333070866, _ 
        209.6666929134, 312.6666929134, 216.5, 307.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 223.3333070866, 302.3333070866, _ 
        223.75, 299.3333070866, 226, 288 
        .AddNodes msoSegmentCurve, msoEditingAuto, 228.25, 276.6666929134, 230, _ 
        253.5833070866, 230, 239.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 230, 225.4166929134, 229.75, _ 
        211.9166141732, 226, 203.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 222.25, 195.0833858268, _ 
        216.4166929134, 193.5833070866, 207.5, 189 
        .AddNodes msoSegmentCurve, msoEditingAuto, 198.5833070866, 184.4166929134, _ 
        186.9166929134, 173.5, 172.5, 176 
        .AddNodes msoSegmentCurve, msoEditingAuto, 158.0833070866, 178.5, _ 
        132.8333070866, 193.0833070866, 121, 204 
        .AddNodes msoSegmentCurve, msoEditingAuto, 109.1666929134, 214.9166929134, 107 _ 
        , 236.6666929134, 101.5, 241.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 96, 246.3333070866, 91.4166929134, _ 
        234.5833070866, 88, 233 
        .AddNodes msoSegmentCurve, msoEditingAuto, 84.5833070866, 231.4166929134, _ 
        82.9166929134, 230.9166929134, 81, 232 
        .AddNodes msoSegmentCurve, msoEditingAuto, 79.0833070866, 233.0833070866, _ 
        77.3333070866, 235.4166929134, 76.5, 239.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 75.6666929134, 243.5833070866, _ 
        74.25, 251.5, 76, 256.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 77.75, 261.5, 83, 266.5, 87, 269.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 91, 272.5, 94.1666929134, _ 
        269.9166929134, 100, 274.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 105.8333070866, 279.0833070866, _ 
        116.75, 290.25, 121.5, 295.5 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(255, 237, 213) 
        .Transparency = 0 
        .Solid 
    End With 
    
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 82.687480315, 246.75) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 81.8749606299, 250.5468503937, _ 
        81.062519685, 254.3437795276, 82.5, 256.8750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 83.937480315, 259.4062992126, _ 
        87.6249606299, 260.6718897638, 91.312519685, 261.937480315 
        .ConvertToShape.Select 
    End With 
    
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 175.1250393701, _ 
        215.812519685) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 172.8750393701, 212.8437795276, _ 
        170.6250393701, 209.8750393701, 167.812519685, 207.562519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 165, 205.25, 163.062519685, 203.75 _ 
        , 158.25, 201.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 153.437480315, 200.1249606299, _ 
        146.187480315, 198.4062204724, 138.937480315, 196.687480315 
        .ConvertToShape.Select 
    End With 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 199.687480315, 224.25) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 203.2968503937, 222.8749606299, _ 
        206.9062992126, 221.5, 209.812519685, 220.8750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.7187401575, 220.2500787402, _ 
        213.6875590551, 220.4062992126, 217.1250393701, 220.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 220.562519685, 220.5937007874, _ 
        225.5, 221.0155905512, 230.437480315, 221.437480315 
        .ConvertToShape.Select 
    End With 
    
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 200.812519685, _ 
        234.562519685) 
        .AddNodes msoSegmentLine, msoEditingAuto, 206.437480315, 234.3750393701 
        .AddNodes msoSegmentLine, msoEditingAuto, 217.8750393701, 234 
        .ConvertToShape.Select 
    End With 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 200.6250393701, _ 
        239.437480315) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 201.5468503937, 238.3749606299, _ 
        202.4687401575, 237.3124409449, 204.187480315, 236.437480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 205.9062204724, 235.5624409449, _ 
        208.4218110236, 234.8749606299, 210.937480315, 234.187480315 
        .ConvertToShape.Select 
    End With 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 168.937480315, 224.25) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 167, 222.7187401575, 165.062519685 _ 
        , 221.187480315, 161.062519685, 219.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 157.062519685, 218.687480315, 151, _ 
        217.7187401575, 144.937480315, 216.75 
        .ConvertToShape.Select 
    End With 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 165.3750393701, _ 
        226.8750393701) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 163.4687401575, 224.9531496063, _ 
        161.5624409449, 223.0312598425, 159.937480315, 221.6250393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 158.312519685, 220.2188188976, _ 
        156.9687401575, 219.3281102362, 155.6250393701, 218.437480315 
        .ConvertToShape.Select 
    End With 
    
    
    ' 左目 
   With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 219, 243.3750393701) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 221.7187401575, 244.4375590551, _ 
        224.8749606299, 245.9687401575, 225.187480315, 249.187480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 225.5, 252.4062204724, _ 
        222.5312598425, 259.2187401575, 220.8750393701, 262.687480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 219.2188188976, 266.1562204724, _ 
        217.5, 268.6250393701, 215.25, 270 
        .AddNodes msoSegmentCurve, msoEditingAuto, 213, 271.3749606299, 210.2812598425 _ 
        , 271.2812598425, 207.3750393701, 270.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 204.4688188976, 270.5937007874, _ 
        199.187480315, 271.3437007874, 197.812519685, 267.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 196.4375590551, 264.5312598425, _ 
        197.2812598425, 254.687480315, 199.1250393701, 250.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 200.9688188976, 246.312519685, _ 
        205.2188188976, 244.1250393701, 208.8750393701, 242.812519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.5312598425, 241.5, _ 
        216.2812598425, 242.312519685, 219, 243.3750393701 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    
      With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 215.6250393701, _ 
        241.312519685) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 216.562519685, 243, 216.8437795276 _ 
        , 247.5, 216.3750393701, 252.187480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 215.9062992126, 256.8749606299, _ 
        215.75, 266.8124409449, 212.812519685, 269.437480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 209.8750393701, 272.062519685, 201 _ 
        , 271.1249606299, 198.75, 267.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 196.5, 264.75, 197.312519685, _ 
        254.6250393701, 199.312519685, 250.312519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 201.312519685, 246, 208.0312598425 _ 
        , 243.4687401575, 210.75, 242.062519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 213.4687401575, 240.6562992126, _ 
        214.6875590551, 239.6250393701, 215.6250393701, 241.312519685 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
       .Visible = msoTrue 
       .ForeColor.RGB = RGB(222, 255, 251) 
       .Transparency = 0 
       .Solid 
    End With 
        With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 0.75 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 210.3750393701, _ 
        246.187480315) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.1562992126, 247.5937007874, _ 
        213.4375590551, 250.812519685, 213.3750393701, 254.437480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 213.312519685, 258.0624409449, _ 
        211.5937795276, 265.4062204724, 210, 267.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 208.4062204724, 270.4687401575, _ 
        205.6562992126, 270.1562992126, 203.812519685, 269.6250393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 201.9687401575, 269.0937795276, _ 
        199.437480315, 267.7187401575, 198.937480315, 264.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 198.437480315, 261.7812598425, _ 
        200.1875590551, 254.937480315, 200.812519685, 251.812519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 201.437480315, 248.6875590551, _ 
        200.9062204724, 246.937480315, 202.687480315, 246 
        .AddNodes msoSegmentCurve, msoEditingAuto, 204.4687401575, 245.062519685, _ 
        208.5937795276, 244.7812598425, 210.3750393701, 246.187480315 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(255, 237, 213) 
        .Solid 
    End With 
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 208.8750393701, _ 
        245.062519685) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 210.5312598425, 245.562519685, 212 _ 
        , 247.6562204724, 212.25, 250.687480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.5, 253.7187401575, 211.5, _ 
        260.687480315, 210.3750393701, 263.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 209.2500787402, 265.812519685, _ 
        206.9687401575, 266.312519685, 205.5, 266.062519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 204.0312598425, 265.812519685, _ 
        202.0937795276, 264.812519685, 201.562519685, 261.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 201.0312598425, 258.687480315, _ 
        201.25, 250.5937007874, 202.312519685, 247.687480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 203.3750393701, 244.7812598425, _ 
        207.2188188976, 244.562519685, 208.8750393701, 245.062519685 
        .ConvertToShape.Select 
    End With 
    
     With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(76, 165, 173) 
        .Transparency = 0 
        .Solid 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 2.25 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 197.25, 251.6250393701) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 196.7812598425, 251.562519685, _ 
        200.0937795276, 246.937480315, 202.5, 245.062519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 204.9062204724, 243.187480315, _ 
        208.6562204724, 241.062519685, 211.687480315, 240.3750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 214.7187401575, 239.6875590551, _ 
        217.7812598425, 239.2812598425, 220.687480315, 240.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 223.5937795276, 242.5937007874, _ 
        229.1562992126, 246.6562992126, 229.1250393701, 250.312519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 229.0937795276, 253.9687401575, _ 
        221.3437795276, 262.2188188976, 220.5, 262.8750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 219.6562204724, 263.5312598425, _ 
        223.75, 256.687480315, 224.062519685, 254.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 224.3750393701, 251.812519685, _ 
        223.6250393701, 250.0937795276, 222.3750393701, 248.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 221.1250393701, 246.4062204724, _ 
        219.4062992126, 243.6562204724, 216.562519685, 243.187480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 213.7187401575, 242.7187401575, _ 
        208.2812598425, 244.2187401575, 205.312519685, 245.437480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 202.3437795276, 246.6562204724, _ 
        197.7187401575, 251.6875590551, 197.25, 251.6250393701 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorText1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 216.0860629921, _ 
        269.5696850394) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 213.6014173228, 270.875984252, _ 
        211.1167716535, 272.1823622047, 208.4016535433, 272.3360629921 
        .AddNodes msoSegmentCurve, msoEditingAuto, 205.6864566929, 272.4897637795, _ 
        201.8443307087, 271.311496063, 199.7951181102, 270.4918110236 
        .AddNodes msoSegmentCurve, msoEditingAuto, 197.7459055118, 269.6721259843, _ 
        196.9262204724, 268.5450393701, 196.1065354331, 267.4180314961 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 1.5 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 198.937480315, _ 
        251.437480315) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 198.7812598425, 250, 200.1562204724 _ 
        , 248.5, 201, 247.687480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 201.8437795276, 246.8749606299, _ 
        202.937480315, 246.2812598425, 204, 246.562519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 205.062519685, 246.8437795276, _ 
        207.1562992126, 248.0000787402, 207.3750393701, 249.3750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 207.5937795276, 250.75, _ 
        206.2188188976, 253.6562992126, 205.312519685, 254.812519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 204.4062992126, 255.9687401575, _ 
        203.187480315, 256.5312598425, 201.937480315, 256.312519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 200.687480315, 256.0937795276, _ 
        199.0937007874, 252.8749606299, 198.937480315, 251.437480315 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 209.25, 268.687480315) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 209, 268.0624409449, 212.4375590551 _ 
        , 266.3437795276, 213.3750393701, 266.6250393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 214.312519685, 266.9062992126, _ 
        215.1875590551, 269.6562992126, 214.8750393701, 270.3750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 214.562519685, 271.0937795276, _ 
        209.5, 269.312519685, 209.25, 268.687480315 
        .ConvertToShape.Select 
    End With 
    
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Solid 
    End With 
    
    ' 右目 
    
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 145.8088188976, _ 
        225.4411811024) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 150.5514173228, 226.4705511811, _ 
        155.8823622047, 228.4559055118, 158.6029133858, 231.1764566929 
        .AddNodes msoSegmentCurve, msoEditingAuto, 161.3234645669, 233.897007874, _ 
        161.9118110236, 237.7941732283, 162.1323622047, 241.7647244094 
        .AddNodes msoSegmentCurve, msoEditingAuto, 162.352992126, 245.7353543307, _ 
        161.397007874, 252.2426771654, 159.9264566929, 255 
        .AddNodes msoSegmentCurve, msoEditingAuto, 158.4559055118, 257.7573228346, _ 
        157.4264566929, 258.0147244094, 153.3088188976, 258.3088188976 
        .AddNodes msoSegmentCurve, msoEditingAuto, 149.1911811024, 258.6029133858, _ 
        139.9999212598, 258.3455905512, 135.2205511811, 256.7647244094 
        .AddNodes msoSegmentCurve, msoEditingAuto, 130.4411811024, 255.1838582677, _ 
        127.3896850394, 251.948503937, 124.6323622047, 248.8235433071 
        .AddNodes msoSegmentCurve, msoEditingAuto, 121.8750393701, 245.6985826772, _ 
        119.9632283465, 240.9559055118, 118.6764566929, 238.0147244094 
        .AddNodes msoSegmentCurve, msoEditingAuto, 117.3896850394, 235.0735433071, 115 _ 
        , 233.3455905512, 116.9117322835, 231.1764566929 
        .AddNodes msoSegmentCurve, msoEditingAuto, 118.8234645669, 229.0073228346, 125 _ 
        , 225.9191338583, 130.1470866142, 225 
        .AddNodes msoSegmentCurve, msoEditingAuto, 135.2941732283, 224.0808661417, _ 
        141.0662204724, 224.4118110236, 145.8088188976, 225.4411811024 
        .ConvertToShape.Select 
    End With

    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Solid 
    End With 
    
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 137.6470866142, _ 
        224.5588188976) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 140.5882677165, 224.3749606299, _ 
        144.8162204724, 225.147007874, 147.5735433071, 225.6617322835 
        .AddNodes msoSegmentCurve, msoEditingAuto, 150.3308661417, 226.1764566929, _ 
        152.8676377953, 225.0367716535, 154.1911811024, 227.6470866142 
        .AddNodes msoSegmentCurve, msoEditingAuto, 155.5147244094, 230.2574015748, _ 
        155.8823622047, 236.2867716535, 155.5147244094, 241.3235433071 
        .AddNodes msoSegmentCurve, msoEditingAuto, 155.1470866142, 246.3603149606, _ 
        154.7058267717, 255, 151.9852755906, 257.8676377953 
        .AddNodes msoSegmentCurve, msoEditingAuto, 149.2647244094, 260.7352755906, _ 
        143.4559055118, 259.4485826772, 139.1911811024, 258.5294488189 
        .AddNodes msoSegmentCurve, msoEditingAuto, 134.9264566929, 257.6103149606, _ 
        128.5294488189, 256.6911811024, 126.3970866142, 252.3529133858 
        .AddNodes msoSegmentCurve, msoEditingAuto, 124.2647244094, 248.0146456693, _ 
        125.8088976378, 236.7647244094, 126.3970866142, 232.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 126.9852755906, 228.2352755906, _ 
        127.9779527559, 228.1985826772, 129.9264566929, 226.7647244094 
        .AddNodes msoSegmentCurve, msoEditingAuto, 131.8749606299, 225.3308661417, _ 
        134.7059055118, 224.7426771654, 137.6470866142, 224.5588188976 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
       .Visible = msoTrue 
       .ForeColor.RGB = RGB(222, 255, 251) 
       .Transparency = 0 
       .Solid 
    End With

    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 143.437480315, _ 
        228.3750393701) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 146.0312598425, 228.9688188976, _ 
        146.25, 231.7188188976, 147.562519685, 233.6250393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 148.8750393701, 235.5312598425, _ 
        151.1875590551, 236.6875590551, 151.312519685, 239.812519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 151.437480315, 242.937480315, _ 
        150.1562992126, 249.6562992126, 148.312519685, 252.3750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 146.4687401575, 255.0937795276, _ 
        142.812519685, 256.25, 140.25, 256.1250393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 137.687480315, 256.0000787402, _ 
        134.6249606299, 254, 132.937480315, 251.6250393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 131.25, 249.2500787402, _ 
        130.2812598425, 245.4688188976, 130.1250393701, 241.8750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 129.9688188976, 238.2812598425, _ 
        129.562519685, 232.3437795276, 132, 230.062519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 134.437480315, 227.7812598425, _ 
        140.8437007874, 227.7812598425, 143.437480315, 228.3750393701 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(222, 255, 251) 
        .Solid 
    End With 
    
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(255, 237, 213) 
        .Solid 
    End With 
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 148.5848818898, _ 
        237.1698425197) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 149.1509448819, 240.4245669291, _ 
        148.5848818898, 246.4622834646, 147.7358267717, 249.0566141732 
        .AddNodes msoSegmentCurve, msoEditingAuto, 146.8867716535, 251.6509448819, _ 
        145.141496063, 252.0754330709, 143.4905511811, 252.7358267717 
        .AddNodes msoSegmentCurve, msoEditingAuto, 141.8396062992, 253.3962204724, _ 
        139.6697637795, 254.0094488189, 137.8301574803, 253.0188976378 
        .AddNodes msoSegmentCurve, msoEditingAuto, 135.9905511811, 252.0283464567, _ 
        133.1132283465, 250.141496063, 132.4528346457, 246.7924409449 
        .AddNodes msoSegmentCurve, msoEditingAuto, 131.7924409449, 243.4433858268, _ 
        131.8868503937, 235.8018897638, 133.8679527559, 232.9245669291 
        .AddNodes msoSegmentCurve, msoEditingAuto, 135.8490551181, 230.0471653543, _ 
        141.8396062992, 228.6792125984, 144.3396062992, 229.5282677165 
        .AddNodes msoSegmentCurve, msoEditingAuto, 146.8396062992, 230.3773228346, _ 
        148.0188188976, 233.9151181102, 148.5848818898, 237.1698425197 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(76, 165, 173) 
        .Transparency = 0 
        .Solid 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 2.25 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 131.3077165354, _ 
        232.3846456693) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 133.1154330709, 232.2692913386, _ 
        135.8077165354, 232.6538582677, 136.8461417323, 234 
        .AddNodes msoSegmentCurve, msoEditingAuto, 137.8845669291, 235.3461417323, _ 
        138.3076377953, 238.8846456693, 137.5384251969, 240.4615748031 
        .AddNodes msoSegmentCurve, msoEditingAuto, 136.7692125984, 242.038503937, _ 
        134.1922834646, 243.5769291339, 132.2307874016, 243.4615748031 
        .AddNodes msoSegmentCurve, msoEditingAuto, 130.2692913386, 243.3462204724, _ 
        126.8076377953, 241.2307874016, 125.7692125984, 239.7692125984 
        .AddNodes msoSegmentCurve, msoEditingAuto, 124.7307086614, 238.3076377953, _ 
        124.7307874016, 235.9230708661, 126, 234.6922834646 
        .AddNodes msoSegmentCurve, msoEditingAuto, 127.2692125984, 233.461496063, _ 
        129.5, 232.5, 131.3077165354, 232.3846456693 
        .ConvertToShape.Select 
    End With 
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(76, 165, 173) 
        .Solid 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With

    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 153.937480315, _ 
        259.1250393701) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 152.1718110236, 259.5312598425, _ 
        150.4062204724, 259.9375590551, 147.562519685, 259.8750393701 
        .AddNodes msoSegmentCurve, msoEditingAuto, 144.7188188976, 259.812519685, _ 
        140.4687401575, 260.062519685, 136.8750393701, 258.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 133.2813385827, 257.437480315, _ 
        129.6406299213, 254.7187401575, 126, 252 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 1.5 
    End With 
    

    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 147.9230708661, _ 
        256.6153543307) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 148.3846456693, 255.8076377953, _ 
        151.6922834646, 255.538503937, 152.7692125984, 256.1538582677 
        .AddNodes msoSegmentCurve, msoEditingAuto, 153.8461417323, 256.7692125984, _ 
        154.8462204724, 259.5, 154.3846456693, 260.3077165354 
        .AddNodes msoSegmentCurve, msoEditingAuto, 153.9231496063, 261.1154330709, _ 
        150.9615748031, 261.5769291339, 150, 261 
        .AddNodes msoSegmentCurve, msoEditingAuto, 149.0384251969, 260.4230708661, _ 
        147.461496063, 257.4230708661, 147.9230708661, 256.6153543307 
        .ConvertToShape.Select 
    End With 
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Solid 
    End With

    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 164.812519685, 241.5) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 165.7812598425, 241.7812598425, 164 _ 
        , 236.0624409449, 162.187480315, 233.437480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 160.3749606299, 230.812519685, _ 
        158.1249606299, 227.5, 153.937480315, 225.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 149.75, 224, 142.7187401575, _ 
        222.937480315, 137.062519685, 222.937480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 131.4062992126, 222.937480315, _ 
        123.9062204724, 224.7812598425, 120, 225.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 116.0937795276, 226.7187401575, _ 
        113.5312598425, 225.5, 113.6250393701, 228.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 113.7188188976, 232, 119.9062992126 _ 
        , 244.6562204724, 120.562519685, 245.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 121.2187401575, 245.8437795276, _ 
        116.5312598425, 235.062519685, 117.562519685, 232.312519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 118.5937795276, 229.562519685, _ 
        122.6562204724, 229.562519685, 126.75, 228.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 130.8437795276, 227.937480315, _ 
        137.1875590551, 226.937480315, 142.1250393701, 227.437480315 
        .AddNodes msoSegmentCurve, msoEditingAuto, 147.062519685, 227.937480315, _ 
        152.5937795276, 229.3750393701, 156.3750393701, 231.75 
        .AddNodes msoSegmentCurve, msoEditingAuto, 160.1562992126, 234.1249606299, _ 
        163.8437795276, 241.2187401575, 164.812519685, 241.5 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorText1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    
    
    ' 口 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 163.5, 293.6250393701) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 165.0155905512, 295.812519685, _ 
        166.5312598425, 298, 169.312519685, 299.062519685 
        .AddNodes msoSegmentCurve, msoEditingAuto, 172.0937795276, 300.1250393701, _ 
        177.9062204724, 300.1562204724, 180.187480315, 300 
        .AddNodes msoSegmentCurve, msoEditingAuto, 182.4687401575, 299.8437795276, _ 
        182.7343307087, 298.9844094488, 183, 298.1250393701 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 1 
    End With 
    
    
    '髪 前面 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 87.4038582677, _ 
        202.7884251969) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 86.7548031496, 209.3268503937, _ 
        86.1057480315, 215.8653543307, 86.25, 225 
        .AddNodes msoSegmentCurve, msoEditingAuto, 86.3942519685, 234.1346456693, _ 
        86.8269291339, 247.3077165354, 88.2692125984, 257.5961417323 
        .AddNodes msoSegmentCurve, msoEditingAuto, 89.711496063, 267.8845669291, _ 
        93.4134645669, 278.1250393701, 94.9038582677, 286.7307874016 
        .AddNodes msoSegmentCurve, msoEditingAuto, 96.3942519685, 295.3365354331, _ 
        96.3462204724, 306.7307874016, 97.2115748031, 309.2307874016 
        .AddNodes msoSegmentCurve, msoEditingAuto, 98.0769291339, 311.7307874016, _ 
        99.3269291339, 305.2403937008, 100.0961417323, 301.7307874016 
        .AddNodes msoSegmentCurve, msoEditingAuto, 100.8653543307, 298.2211811024, _ 
        101.25, 289.2307874016, 101.8269291339, 288.1730708661 
        .AddNodes msoSegmentCurve, msoEditingAuto, 102.4038582677, 287.1153543307, _ 
        101.1538582677, 291.0096850394, 103.5577165354, 295.3846456693 
        .AddNodes msoSegmentCurve, msoEditingAuto, 105.9615748031, 299.7596850394, _ 
        111.8750393701, 309.0865354331, 116.25, 314.4230708661 
        .AddNodes msoSegmentCurve, msoEditingAuto, 120.6250393701, 319.7596062992, _ 
        127.8846456693, 326.7788976378, 129.8077165354, 327.4038582677 
        .AddNodes msoSegmentCurve, msoEditingAuto, 131.7307874016, 328.0288188976, _ 
        129.1826771654, 327.6922834646, 127.7884251969, 318.1730708661 
        .AddNodes msoSegmentCurve, msoEditingAuto, 126.3941732283, 308.6538582677, _ 
        122.5480314961, 284.9999212598, 121.4422834646, 270.2884251969 
        .AddNodes msoSegmentCurve, msoEditingAuto, 120.3365354331, 255.5769291339, _ 
        120.6250393701, 238.75, 121.1538582677, 229.9038582677 
        .AddNodes msoSegmentCurve, msoEditingAuto, 121.6826771654, 221.0577165354, _ 
        120.9134645669, 220.4807874016, 124.6153543307, 217.2115748031 
        .AddNodes msoSegmentCurve, msoEditingAuto, 128.3172440945, 213.9423622047, _ 
        137.0192125984, 213.8461417323, 143.3653543307, 210.2884251969 
        .AddNodes msoSegmentCurve, msoEditingAuto, 149.711496063, 206.7307086614, _ 
        157.5, 201.8268503937, 162.6922834646, 195.8653543307 
        .AddNodes msoSegmentCurve, msoEditingAuto, 167.8845669291, 189.9037795276, _ 
        171.2018897638, 182.211496063, 174.5192125984, 171.1922834646 
        .ConvertToShape.Select 
    End With 
    
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 169.3846456693, _ 
        170.3077165354) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 168.6153543307, 176.5, _ 
        167.8461417323, 182.6923622047, 167.5384251969, 190.3846456693 
        .AddNodes msoSegmentCurve, msoEditingAuto, 167.2307086614, 198.0769291339, _ 
        167.1153543307, 207.9231496063, 167.5384251969, 216.4615748031 
        .AddNodes msoSegmentCurve, msoEditingAuto, 167.961496063, 225, 168.8846456693 _ 
        , 234.1153543307, 170.0769291339, 241.6153543307 
        .AddNodes msoSegmentCurve, msoEditingAuto, 171.2692125984, 249.1153543307, _ 
        174.1153543307, 260.6154330709, 174.6922834646, 261.4615748031 
        .AddNodes msoSegmentCurve, msoEditingAuto, 175.2692125984, 262.3077165354, _ 
        173.461496063, 253.4230708661, 173.5384251969, 246.6922834646 
        .AddNodes msoSegmentCurve, msoEditingAuto, 173.6153543307, 239.961496063, _ 
        173.9615748031, 231.3846456693, 175.1538582677, 221.0769291339 
        .AddNodes msoSegmentCurve, msoEditingAuto, 176.3461417323, 210.7692125984, _ 
        178.8845669291, 192.9230708661, 180.6922834646, 184.8461417323 
        .AddNodes msoSegmentCurve, msoEditingAuto, 182.5, 176.7692125984, 184.25, _ 
        174.6922834646, 186, 172.6153543307 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With 
    
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 176.2168503937, _ 
        202.765511811) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 175.6913385827, 206.6371653543, _ 
        175.1659055118, 210.5088976378, 175.8849606299, 217.0354330709 
        .AddNodes msoSegmentCurve, msoEditingAuto, 176.604015748, 223.5619685039, _ 
        178.927007874, 233.9602362205, 180.5309448819, 241.9248031496 
        .AddNodes msoSegmentCurve, msoEditingAuto, 182.1348818898, 249.8893700787, _ 
        183.8495275591, 261.8915748031, 185.5088188976, 264.822992126 
        .AddNodes msoSegmentCurve, msoEditingAuto, 187.1681102362, 267.7544094488, _ 
        187.6105511811, 263.4955905512, 190.4866929134, 259.5133070866 
        .AddNodes msoSegmentCurve, msoEditingAuto, 193.3628346457, 255.531023622, _ 
        199.3362992126, 247.677007874, 202.765511811, 240.9292125984 
        .AddNodes msoSegmentCurve, msoEditingAuto, 206.1947244094, 234.1814173228, _ 
        209.3474015748, 226.3827559055, 211.0619685039, 219.0265354331 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.7765354331, 211.6703149606, _ 
        213.1637007874, 203.8163779528, 213.0530708661, 196.7920472441 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.9424409449, 189.7677165354, _ 
        211.8362992126, 183.6836220472, 210.3982677165, 176.8805511811 
        .AddNodes msoSegmentCurve, msoEditingAuto, 208.9602362205, 170.077480315, _ 
        207.6327559055, 162.8318897638, 204.4248031496, 155.9734645669 
        .AddNodes msoSegmentCurve, msoEditingAuto, 201.2168503937, 149.1150393701, _ 
        194.8009448819, 140.6526771654, 191.1504724409, 135.7300787402 
        .AddNodes msoSegmentCurve, msoEditingAuto, 187.5, 130.807480315, 185.011023622 _ 
        , 128.6227559055, 182.5221259843, 126.4380314961 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With 
    
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 211.8292913386, _ 
        184.3902362205) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 212.0426771654, 192.2865354331, _ 
        212.2561417323, 200.1829133858, 212.9268503937, 208.9024409449 
        .AddNodes msoSegmentCurve, msoEditingAuto, 213.5975590551, 217.6219685039, _ 
        215.4267716535, 228.0488188976, 215.8536220472, 236.7073228346 
        .AddNodes msoSegmentCurve, msoEditingAuto, 216.2804724409, 245.3658267717, _ 
        214.938976378, 259.3292125984, 215.4877952756, 260.8536220472 
        .AddNodes msoSegmentCurve, msoEditingAuto, 216.0366141732, 262.3780314961, _ 
        217.9878740157, 253.3536220472, 219.1463779528, 245.8536220472 
        .AddNodes msoSegmentCurve, msoEditingAuto, 220.3049606299, 238.3536220472, _ 
        222.1951968504, 224.4511811024, 222.4390551181, 215.8536220472 
        .AddNodes msoSegmentCurve, msoEditingAuto, 222.6829133858, 207.2560629921, _ 
        220.9755905512, 199.817007874, 220.6097637795, 194.2682677165 
        .AddNodes msoSegmentCurve, msoEditingAuto, 220.2439370079, 188.7195275591, _ 
        220.2439370079, 185.6402362205, 220.2439370079, 182.5609448819 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With

    
  With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 218.9361417323, _ 
        179.3617322835) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 220.0797637795, 182.9521259843, _ 
        221.2234645669, 186.5425984252, 222.765984252, 196.2766141732 
        .AddNodes msoSegmentCurve, msoEditingAuto, 224.308503937, 206.0106299213, _ 
        227.6063779528, 223.0319685039, 228.191496063, 237.765984252 
        .AddNodes msoSegmentCurve, msoEditingAuto, 228.7766141732, 252.5, _ 
        225.9042519685, 278.457480315, 226.2766141732, 284.6808661417 
        .AddNodes msoSegmentCurve, msoEditingAuto, 226.648976378, 290.9042519685, _ 
        228.351023622, 281.7021259843, 230.425511811, 275.1063779528 
        .AddNodes msoSegmentCurve, msoEditingAuto, 232.5, 268.5106299213, _ 
        236.8616535433, 255.9042519685, 238.7233858268, 245.1063779528 
        .AddNodes msoSegmentCurve, msoEditingAuto, 240.5851181102, 234.308503937, _ 
        241.0903937008, 222.3137795276, 241.5957480315, 210.3191338583 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With

    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 241.4515748031, _ 
        211.2096850394) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 242.7015748031, 217.4193700787, _ 
        243.9515748031, 223.6290551181, 244.5967716535, 229.8387401575 
        .AddNodes msoSegmentCurve, msoEditingAuto, 245.2419685039, 236.0484251969, _ 
        245.1613385827, 239.7983464567, 245.3225984252, 248.4677165354 
        .AddNodes msoSegmentCurve, msoEditingAuto, 245.4838582677, 257.1370866142, _ 
        245.5241732283, 269.4959055118, 245.564488189, 281.8548031496 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With 
    
    ' 眼鏡 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 127.1250393701, 237) 
        .AddNodes msoSegmentLine, msoEditingAuto, 125.25, 260.25 
        .AddNodes msoSegmentLine, msoEditingAuto, 170.25, 268.8750393701 
        .AddNodes msoSegmentLine, msoEditingAuto, 172.8750393701, 247.1250393701 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0.6999999881 
        .Solid 
    End With 
    
        With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 191.25, 250.8750393701) 
        .AddNodes msoSegmentLine, msoEditingAuto, 190.5, 272.6250393701 
        .AddNodes msoSegmentLine, msoEditingAuto, 236.25, 279.3750393701 
        .AddNodes msoSegmentLine, msoEditingAuto, 237, 259.5 
        .ConvertToShape.Select 
    End With 
    ActiveWindow.Selection.ShapeRange.Line.Visible = msoFalse 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Solid 
    End With 
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0.6999999881 
        .Solid 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 121.578976378, _ 
        236.8421259843) 
        .AddNodes msoSegmentLine, msoEditingAuto, 127.1052755906, 238.0262992126 
        .AddNodes msoSegmentLine, msoEditingAuto, 125.1315748031, 260.1315748031 
        .AddNodes msoSegmentLine, msoEditingAuto, 169.7368503937, 269.2105511811 
        .AddNodes msoSegmentLine, msoEditingAuto, 172.5, 247.1052755906 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 3.5 
    End With 
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 170.921023622, _ 
        261.3158267717) 
        .AddNodes msoSegmentCurve, msoEditingAuto, 174.6052755906, 260.0658267717, _ 
        178.2895275591, 258.8158267717, 181.578976378, 259.3421259843 
        .AddNodes msoSegmentCurve, msoEditingAuto, 184.8684251969, 259.8684251969, _ 
        187.7631496063, 262.171023622, 190.6578740157, 264.4737007874 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 3.5 
    End With 
' 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 191.8421259843, _ 
        251.4474015748) 
        .AddNodes msoSegmentLine, msoEditingAuto, 190.6578740157, 272.7631496063 
        .AddNodes msoSegmentLine, msoEditingAuto, 235.2631496063, 279.4737007874 
        .AddNodes msoSegmentLine, msoEditingAuto, 236.8421259843, 259.3421259843 
        .ConvertToShape.Select 
    End With 
    With ActiveWindow.Selection.ShapeRange.Line 
        .Visible = msoTrue 
        .Weight = 3.5 
    End With 
    
    
    ' ヘアピン 
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 121.1250393701, _ 
            187.1250393701) 
            .AddNodes msoSegmentLine, msoEditingAuto, 142.8750393701, 180 
            .AddNodes msoSegmentLine, msoEditingAuto, 153, 191.25 
            .AddNodes msoSegmentLine, msoEditingAuto, 126.75, 199.5 
            .AddNodes msoSegmentLine, msoEditingAuto, 133.5, 217.1250393701 
            .AddNodes msoSegmentCurve, msoEditingAuto, 132, 226.8750393701 
            .AddNodes msoSegmentLine, msoEditingAuto, 122.25, 225 
            .AddNodes msoSegmentLine, msoEditingAuto, 112.8750393701, 204.75 
            .AddNodes msoSegmentLine, msoEditingAuto, 94.1250393701, 210.75 
            .AddNodes msoSegmentLine, msoEditingAuto, 83.6250393701, 200.25 
            .AddNodes msoSegmentLine, msoEditingAuto, 107.25, 192 
            .AddNodes msoSegmentLine, msoEditingAuto, 101.25, 170.6250393701 
            '.AddNodes msoSegmentCurve, msoEditingAuto, 102.3750393701, 166.1250393701 
            '.AddNodes msoSegmentCurve, msoEditingAuto, 107.6250393701, 164.25 
            .AddNodes msoSegmentCurve, msoEditingAuto, 113.6250393701, 165.75 
            .AddNodes msoSegmentLine, msoEditingAuto, 121.1250393701, 187.1250393701 
            .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1 
        .ForeColor.TintAndShade = 0 
        .ForeColor.Brightness = 0 
        .Transparency = 0 
        .Solid 
    End With 
    
    
    With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 128.25, 213.3750393701) 
        .AddNodes msoSegmentLine, msoEditingAuto, 115.1250393701, 181.5 
        .AddNodes msoSegmentCurve, msoEditingAuto, 111.75, 170.25 
        .AddNodes msoSegmentCurve, msoEditingAuto, 107.6250393701, 169.5 
        .AddNodes msoSegmentLine, msoEditingAuto, 104.6250393701, 170.6250393701 
        .AddNodes msoSegmentLine, msoEditingAuto, 104.25, 174 
        .AddNodes msoSegmentLine, msoEditingAuto, 121.5, 217.1250393701 
        .AddNodes msoSegmentLine, msoEditingAuto, 128.25, 213.3750393701 
        .ConvertToShape.Select 
    End With 
    
    With ActiveWindow.Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(87, 161, 97) 
        .Transparency = 0 
        .Solid 
    End With 


End Sub

■おまけ


WebMatrixMan (@WebMatrixMan) も用意しいてたのですが LT で実行するの忘れてました…。

image

Sub WebMatrixMan() 
  
With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 149.25, 222) 
.AddNodes msoSegmentCurve, msoEditingAuto, 156.312519685, 209.1249606299, _ 
163.3750393701, 196.25, 161.25, 177.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 159.1249606299, 159.25, _ 
151.3750393701, 128.25, 136.5, 111 
.AddNodes msoSegmentCurve, msoEditingAuto, 121.6249606299, 93.75, 92.25, _ 
79.1249606299, 72, 74.25 
.AddNodes msoSegmentCurve, msoEditingAuto, 51.75, 69.3749606299, 26.3749606299 _ 
, 79.3750393701, 15, 81.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 3.6250393701, 84.1249606299, _ 
3.687480315, 86.3124409449, 3.75, 88.5 
.ConvertToShape.Select 
End With

With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 12.75, 121.5) 
.AddNodes msoSegmentCurve, msoEditingAuto, 16, 118.1250393701, 22, 104.25, 30 _ 
, 105 
.AddNodes msoSegmentCurve, msoEditingAuto, 38, 105.75, 55.75, 124.8750393701, _ 
60.75, 126 
.AddNodes msoSegmentCurve, msoEditingAuto, 65.75, 127.1250393701, 58.25, 115, _ 
60, 111.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 61.75, 108.5, 65.75, 105.1250393701 _ 
, 71.25, 106.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 76.75, 107.8749606299, 88.75, _ 
120.8749606299, 93, 120 
.AddNodes msoSegmentCurve, msoEditingAuto, 97.25, 119.1250393701, _ 
92.3750393701, 104.1249606299, 96.75, 101.25 
.AddNodes msoSegmentCurve, msoEditingAuto, 101.1250393701, 98.3749606299, _ 
118.5, 95.1249606299, 119.25, 102.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 120, 110.3750393701, 108.1250393701 _ 
, 141.5, 101.25, 147 
.AddNodes msoSegmentCurve, msoEditingAuto, 94.3750393701, 152.5, 83.5, 133.75 _ 
, 78, 135.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 72.5, 137.75, 79.5, 160.75, 68.25, _ 
159 
.AddNodes msoSegmentCurve, msoEditingAuto, 57, 157.25, 19.6249606299, _ 
131.6249606299, 10.5, 125.25 
.AddNodes msoSegmentCurve, msoEditingAuto, 1.3750393701, 118.8750393701, 9.5, _ 
124.8749606299, 12.75, 121.5 
.ConvertToShape.Select 
End With 
With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 32.25, 198.75) 
.AddNodes msoSegmentLine, msoEditingAuto, 66, 156 
.AddNodes msoSegmentLine, msoEditingAuto, 96, 162 
.AddNodes msoSegmentLine, msoEditingAuto, 103.5, 148.5 
.AddNodes msoSegmentLine, msoEditingAuto, 153.75, 183.75 
.AddNodes msoSegmentLine, msoEditingAuto, 141.75, 195.75 
.AddNodes msoSegmentLine, msoEditingAuto, 112.5, 170.25 
.AddNodes msoSegmentLine, msoEditingAuto, 102, 192 
.AddNodes msoSegmentLine, msoEditingAuto, 74.25, 175.5 
.AddNodes msoSegmentLine, msoEditingAuto, 58.5, 217.5 
.AddNodes msoSegmentLine, msoEditingAuto, 32.25, 198.75 
.ConvertToShape.Select 
End With

With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 162, 165) 
.AddNodes msoSegmentCurve, msoEditingAuto, 166.1249606299, 161.8749606299, _ 
170.25, 158.75, 171, 154.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 171.75, 150.25, 166.1250393701, _ 
145.3749606299, 166.5, 139.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 166.8750393701, 133.6249606299, 169 _ 
, 123.3749606299, 173.25, 119.25 
.AddNodes msoSegmentCurve, msoEditingAuto, 177.5, 115.1249606299, 187, _ 
114.6250393701, 192, 114.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 197, 114.8749606299, 203.6249606299 _ 
, 117.3750393701, 203.25, 120 
.AddNodes msoSegmentCurve, msoEditingAuto, 202.8750393701, 122.6249606299, _ 
191.6250393701, 126.8749606299, 189.75, 130.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 187.8750393701, 134.1249606299, _ 
189.937480315, 137.937480315, 192, 141.75 
.ConvertToShape.Select 
End With 
With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 206.25, 222) 
.AddNodes msoSegmentCurve, msoEditingAuto, 204.8124409449, 196.5624409449, _ 
203.3749606299, 171.1249606299, 204, 159.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 204.6249606299, 148.3749606299, _ 
208.5, 157.25, 210, 153.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 211.5, 150.25, 214.5, 144.75, 213, _ 
138.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 211.5, 132.75, 206.5, 120.75, 201, _ 
117.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 195.5, 114.75, 187.75, 117.75, 180 _ 
, 120.75 
.ConvertToShape.Select 
End With 
With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 180, 114.75) 
.AddNodes msoSegmentCurve, msoEditingAuto, 176.937480315, 105.437480315, _ 
173.8749606299, 96.1249606299, 173.25, 90.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 172.6249606299, 85.3749606299, _ 
173.5, 84, 176.25, 82.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 179, 81, 186.6250393701, 75.75, _ 
189.75, 81.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 192.8749606299, 87.75, 194, 116.25 _ 
, 195, 118.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 196, 120.75, 194.3750393701, 100.25 _ 
, 195.75, 95.25 
.AddNodes msoSegmentCurve, msoEditingAuto, 197.1249606299, 90.25, _ 
200.1250393701, 89.3749606299, 203.25, 88.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 206.3750393701, 87.6249606299, _ 
213.5, 84, 214.5, 90 
.AddNodes msoSegmentCurve, msoEditingAuto, 215.5, 96, 212.3749606299, 110.25, _ 
209.25, 124.5 
.ConvertToShape.Select 
End With 
With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 207, 117) 
.AddNodes msoSegmentCurve, msoEditingAuto, 204.25, 117.75, 200.6249606299, _ 
121.1250393701, 198.75, 123.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 196.8750393701, 126.3749606299, _ 
195.8749606299, 130.6250393701, 195.75, 132.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 195.6250393701, 134.8749606299, 195 _ 
, 137, 198, 136.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 201, 136, 210.8750393701, _ 
132.6249606299, 213.75, 129.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 216.6249606299, 126.8750393701, _ 
216.25, 121.1250393701, 215.25, 119.25 
.AddNodes msoSegmentCurve, msoEditingAuto, 214.25, 117.3750393701, 209.75, _ 
116.25, 207, 117 
.ConvertToShape.Select 
End With 
With ActivePresentation.Slides(1).Shapes.BuildFreeform(msoEditingAuto, 213, 129.75) 
.AddNodes msoSegmentCurve, msoEditingAuto, 210.3749606299, 130.75, 203.25, _ 
136.1250393701, 201, 138.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 198.75, 141.3750393701, 198, _ 
144.3750393701, 199.5, 145.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 201, 146.6250393701, 206.6249606299 _ 
, 145.8750393701, 210, 145.5 
.AddNodes msoSegmentCurve, msoEditingAuto, 213.3750393701, 145.1250393701, _ 
218.6250393701, 145.3750393701, 219.75, 143.25 
.AddNodes msoSegmentCurve, msoEditingAuto, 220.8750393701, 141.1250393701, 218 _ 
, 135, 216.75, 132.75 
.AddNodes msoSegmentCurve, msoEditingAuto, 215.5, 130.5, 215.6250393701, _ 
128.75, 213, 129.75 
.ConvertToShape.Select 
End With 
End Sub 

Written by masayuki.ozawa

4月 29th, 2013 at 2:38 pm

Posted in Office

Tagged with ,

One Response to 'VBA でお絵かきをしてきました'

Subscribe to comments with RSS or TrackBack to 'VBA でお絵かきをしてきました'.

  1. […] VBAでお絵かき […]

Leave a Reply

*