先日、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 を実施するために調べたことなどを少しまとめてみたいと思います。
Contents
■基本は Excel のマクロの記録を利用する
最終的には PowerPoint の VBA を使用したのですが、基本的な作業については Excel の VBA のマクロの記録を使いながら行うとよいと思います。
マクロの記録をした状態で曲線で線を引くとその線を引くための操作が 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] としてあった場合は、
ActivePresentation.Slides(1).Shapes.Range(Array("円/楕円 1", "円/楕円 2")).MergeShapes (msoMergeUnion)
というようなコードを書くと結合ができます。
Excel の VBA では接合の処理は記録ができない (現時点の最新の Excel である 2013 では接合の機能はついていないため) ので、接合をした図形を使いたい場合は自分で VBA を記述する必要があります。
■最終的に作ったもの
これでせっせと Excel VBA で絵を描いて、PowerPoint の VBA に変換して LT で発表したものがこちら。
空白のスライドですが、
以下のようにせっせと記録した VBA を実行すると、
こんな感じで、冒頭で紹介した書籍のキャラクターである翠田あいさん (@AiMidorita) が書かれます。
使ったコードは文末に記載したものになります。
既定の図形 / 既定の線を黒の 0.25 pt の状態にしていない場合は、以下のように青い線で描画されてしまいますが PowerPoint の VBA にコピペして実行で動くと思います。
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 で実行するの忘れてました…。
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
[…] VBAでお絵かき […]
Global Windows Azure BootCamp JP | ブチザッキ
30 4月 13 at 09:57