テレワークでやる気でないなら仮面ライダーのベルト作ってサボればいいじゃん

コロナの影響でテレワークをせざるを得ないしなければならない方が沢山居るかと思います。
しかし、家での仕事 って気を散らす物が沢山あって集中できないですよね。

じゃあ、仮面ライダーのベルト作って仕事のモチベーション上げればいいじゃん。

何を言ってるんだお前は。という感じですね?分かります。

しかし、今から書くことは自分の仕事のスピード、質を上げることに繋がると思います。

それは、エクセルです。仕事で業務効率化の為に使っている企業もたくさんあります。
エクセルはただ数字を入力するだけのソフトではなく、物凄く使い勝手のいいソフトです。

そこで今回紹介する機能はマクロという機能です。
ざっくり言うと、ボタンをポチれば自動でセルに値を入力してくれたり、自動で計算してくれたりします。
しかし、その自動化する所は自分で作らなければなりません。
これが、プログラミングですね。

長々と書いてしまいましたが、実際に見てもらった方が早いですね。
以下が先日ツイートした内容です。

やり方は意外と簡単で、開発タブのマクロの記録を押して、自動化したいことをエクセル上で行って、記録終了を押すとマクロの完成です。

以下は自動で四角形を生成するマクロです。

 

上記で作成したマクロをボタンに配置するとサクサク四角形を量産できます。

上記の動画でなぜかボタン作成の所が見えないので画像で捕捉します。

開発タブで挿入をクリック
開発タブが表示されない場合 ⇒エクセルの開発タブを表示する方法

一番右上のボタンをクリック

ここに作成したマクロの一覧が表示されます。
今回は上記で作成した図形を作成するマクロが表示されていますので、そのままOK

 

これを何回も繰り返すとゼロワンドライバーだって作成できます。

以下がゼロワンドライバーのソースです。コピーすれば自分のエクセルでも実行できるはず。ただ、ちょっと図の位置がずれるかもしれません。。

Private belt1 As String
Private belt2 As String
Private belt3 As String
Private belt4 As String
Private belt5 As String

Sub zeroOneDriver()
Call Macro3
ActiveSheet.Shapes.Range(Array(belt1)).Select
Selection.ShapeRange.IncrementTop 213.75
Selection.ShapeRange.IncrementTop -5.6250393701
Selection.ShapeRange.IncrementTop -5.6249606299
Call Macro53
ActiveSheet.Shapes.Range(Array(belt2)).Select
Selection.ShapeRange.IncrementTop 1002
Call Macro42
ActiveSheet.Shapes.Range(Array(belt3)).Select
Selection.ShapeRange.IncrementTop 208.1249606299
Selection.ShapeRange.IncrementTop -69.3750393701
Selection.ShapeRange.IncrementLeft -63.75
Selection.ShapeRange.IncrementLeft -15
Selection.ShapeRange.IncrementLeft -5.6250393701
Call Macro7
ActiveSheet.Shapes.Range(Array(belt4)).Select
Selection.ShapeRange.IncrementTop 669
Selection.ShapeRange.IncrementLeft -78
Selection.ShapeRange.IncrementTop 147
ActiveWindow.Zoom = 40
ActiveWindow.SmallScroll Down:=15
Call Macro2
ActiveSheet.Shapes.Range(Array(belt5)).Select
Selection.ShapeRange.IncrementTop 1632
ActiveWindow.SmallScroll Down:=78
Selection.ShapeRange.IncrementTop 603
ActiveWindow.Zoom = 40
ActiveWindow.Zoom = 55
ActiveWindow.SmallScroll Down:=12
Selection.ShapeRange.IncrementLeft 182.7273228346
Selection.ShapeRange.IncrementTop 20.454488189
Selection.ShapeRange.IncrementLeft -36.8181889764
Selection.ShapeRange.IncrementLeft -9.5454330709
Selection.ShapeRange.IncrementLeft 321.8181889764
Selection.ShapeRange.IncrementLeft -323.1818110236
Selection.ShapeRange.IncrementTop -213.75
Selection.ShapeRange.IncrementTop -9.3749606299
Selection.ShapeRange.IncrementTop -11.25
Selection.ShapeRange.IncrementTop 7.5
Selection.ShapeRange.IncrementTop 13.1249606299
Selection.ShapeRange.IncrementTop -5.6250393701
Selection.ShapeRange.IncrementLeft 331.8750393701
Selection.ShapeRange.IncrementLeft -313.1250393701

ActiveSheet.Shapes.Range(Array(belt1, belt2, belt3, _
belt4, belt5)).Select
ActiveWindow.SmallScroll Down:=-60
Selection.ShapeRange.IncrementLeft -142.5
Selection.ShapeRange.IncrementTop -1068.75
ActiveWindow.SmallScroll Down:=-57
Selection.ShapeRange.IncrementLeft -54.3749606299
Selection.ShapeRange.IncrementTop -721.8749606299
ActiveWindow.SmallScroll Down:=-54
Selection.ShapeRange.IncrementLeft 626.25
Selection.ShapeRange.IncrementTop 1.8749606299
ActiveWindow.SmallScroll Down:=-24

End Sub

Sub Macro3()
Dim obj33 As String
Dim obj34 As String
Dim obj35 As String
Dim obj36 As String
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 630, 2062.5, 525, 300).Select
obj33 = Selection.Name
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset8
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 855, 2043.75, _
361.8750393701, 37.5).Select
obj34 = Selection.Name
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset8
Selection.ShapeRange.IncrementLeft -1.8749606299
Selection.ShapeRange.IncrementTop -7.5
Selection.ShapeRange.IncrementTop 11.25
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 878.1818110236, _
2357.7272440945, 347.7272440945, 36.8181889764).Select
obj35 = Selection.Name
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset8
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 873, 2412, 306, 267).Select
obj36 = Selection.Name
Selection.ShapeRange.ScaleWidth 0.8333333333, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -9
Selection.ShapeRange.IncrementTop -30
Selection.ShapeRange.ScaleWidth 1.1294117647, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0561797753, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -21
Selection.ShapeRange.IncrementTop -6
Selection.ShapeRange.ScaleWidth 0.8020833333, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -12
Selection.ShapeRange.IncrementTop 6
Selection.ShapeRange.Adjustments.Item(2) = 0.64286
Selection.ShapeRange.ScaleWidth 1.2207792208, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(2) = 0.69605
Selection.ShapeRange.IncrementTop -302
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
ActiveSheet.Shapes.Range(Array(obj33, obj34, obj35, obj36)). _
Select
Selection.ShapeRange.Group.Select
belt1 = Selection.Name

End Sub



Sub Macro2()
Dim obj1 As String
Dim obj2 As String
Dim obj3 As String
Dim obj4 As String
Dim obj5 As String
Dim obj6 As String
Dim obj7 As String
Dim obj8 As String
Dim obj9 As String
Dim obj10 As String
Dim obj11 As String
Dim gObj1 As String
Dim gObj2 As String
Dim gObj3 As String
Dim gObj4 As String
Dim gObjG1 As String
Dim gObjG2 As String
Dim finGObj1 As String
Dim finGObj2 As String


ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 545.3571653543, 264.6428346457, _
163.9285826772, 43.9285826772).Select
obj1 = Selection.Name
Selection.ShapeRange.Flip msoFlipVertical
Selection.ShapeRange.Adjustments.Item(1) = 1.17683
Selection.ShapeRange.ScaleHeight 0.5121949908, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 15.2433333333
Selection.ShapeRange.IncrementLeft -6.4285826772
Selection.ShapeRange.IncrementTop -4.2857480315
Selection.ShapeRange.ScaleHeight 0.8424601925, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9405523962, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 592.5, 334.2857480315, 97.5, _
68.5714173228).Select
obj2 = Selection.Name
Selection.ShapeRange.Adjustments.Item(1) = 0.4375
Selection.ShapeRange.IncrementRotation 256.1600166667
Selection.ShapeRange.ScaleWidth 0.5891467797, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.29288
Selection.ShapeRange.IncrementLeft -5.3571653543
Selection.ShapeRange.IncrementTop -25.7142519685
Selection.ShapeRange.ScaleHeight 1.3406885401, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.9008184935, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.Range(Array(obj1)).Select
Selection.ShapeRange.ScaleWidth 0.9075658547, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0112886557, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.Range(Array(obj2)).Select
Selection.ShapeRange.ScaleWidth 0.8292523704, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 721.0714173228, 304.2857480315, _
103.9285826772, 88.928503937).Select
obj3 = Selection.Name
Selection.ShapeRange.IncrementRotation 121.37955
Selection.ShapeRange.ScaleWidth 0.5573322989, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -47.1427559055
Selection.ShapeRange.IncrementTop -22.5
Selection.ShapeRange.ScaleWidth 0.7153376952, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop 4.2855905512
Selection.ShapeRange.ScaleHeight 1.607484381, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -6.4285826772
Selection.ShapeRange.IncrementTop 9.6428346457
ActiveSheet.Shapes.Range(Array(obj3)).Select
Selection.ShapeRange.IncrementRotation 5.94905
Selection.ShapeRange.IncrementLeft -4.2856692913
Selection.ShapeRange.IncrementTop 6.428503937
Selection.ShapeRange.Adjustments.Item(1) = 0.35281
Selection.ShapeRange.Adjustments.Item(1) = 0.30577
Selection.ShapeRange.IncrementLeft -4.2856692913
Selection.ShapeRange.IncrementTop -2.1428346457
ActiveSheet.Shapes.AddShape(msoShapeDiagonalStripe, 537.8571653543, 262.5, _
141.4285826772, 139.2857480315).Select
obj4 = Selection.Name
Selection.ShapeRange.IncrementRotation 270
Selection.ShapeRange.IncrementLeft -22.5
Selection.ShapeRange.IncrementTop -16.0714173228
ActiveSheet.Shapes.Range(Array(obj4)).Select
Selection.ShapeRange.Adjustments.Item(1) = 0.03846
Selection.ShapeRange.ScaleWidth 0.7954544822, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8769232683, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -42.8570866142
Selection.ShapeRange.IncrementTop 31.0714173228
Selection.ShapeRange.ScaleWidth 1.5238117235, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.5350876571, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(1) = 0.03275
Selection.ShapeRange.Adjustments.Item(1) = 0.28989
Selection.ShapeRange.Adjustments.Item(1) = 0.48418
Selection.ShapeRange.IncrementRotation -11.96935
Selection.ShapeRange.IncrementLeft 37.5
Selection.ShapeRange.IncrementTop -41.7856692913
Selection.ShapeRange.ScaleWidth 0.9211995888, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.6082008994, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 6.4285826772
Selection.ShapeRange.IncrementTop -9.6427559055
Selection.ShapeRange.IncrementRotation 2.2021
Selection.ShapeRange.ScaleWidth 0.9903609219, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.0632723391, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.8008316157, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.5027199553, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -57.8571653543
Selection.ShapeRange.IncrementTop 9.6428346457
Selection.ShapeRange.IncrementLeft 4.2857480315
Selection.ShapeRange.IncrementTop -1.0714173228
Selection.ShapeRange.IncrementLeft 2.1429133858
Selection.ShapeRange.IncrementTop 12.8571653543
ActiveSheet.Shapes.Range(Array(obj4)).Select
Selection.ShapeRange.IncrementRotation -6.8535833333
Selection.ShapeRange.ScaleWidth 1.2497587472, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.5788094235, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(1) = 0.58847
ActiveSheet.Shapes.AddShape(msoShapeDiagonalStripe, 545.3571653543, _
324.6428346457, 140.3570866142, 140.3571653543).Select
obj5 = Selection.Name
Selection.ShapeRange.IncrementRotation 250.8455
Selection.ShapeRange.Adjustments.Item(1) = 0.4833
Selection.ShapeRange.IncrementLeft 31.071496063
Selection.ShapeRange.IncrementTop -24.6429133858
Selection.ShapeRange.IncrementRotation 6.7187333333
Selection.ShapeRange.ScaleWidth 0.7739836805, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8030710179, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.Range(Array(obj5, obj4)) _
.Select
ActiveSheet.Shapes.Range(Array(obj5, obj4, _
obj1)).Select
ActiveSheet.Shapes.Range(Array(obj5, obj4, _
obj1, obj2)).Select
ActiveSheet.Shapes.Range(Array(obj5, obj4, _
obj1, obj2, obj3)).Select
Selection.ShapeRange.Line.Visible = msoFalse
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = -0.349999994
.Transparency = 0
.Solid
End With
ActiveSheet.Shapes.Range(Array(obj1)).Select
Selection.ShapeRange.ScaleWidth 1.188993592, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.2589842577, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.68458036, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.Range(Array(obj4)).Select
Selection.ShapeRange.IncrementLeft -8.571496063
Selection.ShapeRange.IncrementTop -8.5714173228
ActiveSheet.Shapes.Range(Array(obj5)).Select
Selection.ShapeRange.IncrementLeft -16.0714173228
Selection.ShapeRange.IncrementTop -8.5712598425
ActiveSheet.Shapes.Range(Array(obj4)).Select
Selection.ShapeRange.IncrementLeft -4.2856692913
Selection.ShapeRange.IncrementTop -2.1428346457
ActiveSheet.Shapes.Range(Array(obj4)).Select
Selection.ShapeRange.IncrementRotation 0.5938666667
ActiveSheet.Shapes.Range(Array(obj5)).Select
Selection.ShapeRange.IncrementLeft -9.6427559055
Selection.ShapeRange.IncrementLeft -5.3570866142
Selection.ShapeRange.IncrementTop -1.0714173228
Selection.ShapeRange.ScaleWidth 0.96517486, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.0218742829, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.0085335748, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.0366144908, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.Range(Array(obj3)).Select
ActiveSheet.Shapes.Range(Array(obj3)).Select
Selection.ShapeRange.ScaleWidth 0.7666445251, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0453686211, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.Range(Array(obj3)).Select
Selection.ShapeRange.ScaleHeight 0.8968291155, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 5.3557166667
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -3.2143307087
ActiveSheet.Shapes.Range(Array(obj3)).Select
Selection.ShapeRange.IncrementLeft -3.2142519685
Selection.ShapeRange.IncrementTop -8.5713385827
ActiveWindow.SmallScroll Down:=12
ActiveSheet.Shapes.Range(Array(obj3)).Select
Selection.ShapeRange.ScaleHeight 1.1383695867, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.12458
Selection.ShapeRange.Adjustments.Item(1) = 0.22614
ActiveSheet.Shapes.Range(Array(obj3)).Select
Selection.ShapeRange.ScaleWidth 1.246676958, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 5.357007874
Selection.ShapeRange.IncrementTop -1.0714173228
ActiveSheet.Shapes.Range(Array(obj3)).Select
Selection.ShapeRange.ScaleHeight 0.9491191008, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-15
ActiveSheet.Shapes.Range(Array(obj1, obj2, obj3, obj4, obj5)).Select
Selection.ShapeRange.Group.Select
gObj1 = Selection.Name
Selection.Copy
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 4.4117322835
Selection.ShapeRange.IncrementLeft 2.6470866142
Selection.ShapeRange.IncrementTop 0.00007874015748
gObj2 = Selection.Name
Selection.ShapeRange.Flip msoFlipVertical
Selection.ShapeRange.IncrementTop 178.9285826772
Selection.ShapeRange.IncrementLeft -12.8570866142
Selection.ShapeRange.IncrementTop -15.1428346457
Selection.ShapeRange.IncrementTop 21.4285826772
ActiveSheet.Shapes.Range(Array(gObj1, gObj2)).Select
Selection.ShapeRange.Group.Select
gObjG1 = Selection.Name

ActiveSheet.Shapes.AddShape(msoShapeDiagonalStripe, 653.5714173228, _
786.4285826772, 162.8571653543, 49.2856692913).Select
obj6 = Selection.Name
Selection.ShapeRange.Adjustments.Item(1) = 0.41304
Selection.ShapeRange.IncrementRotation 60.9454166667
Selection.ShapeRange.IncrementLeft -47.1429133858
Selection.ShapeRange.IncrementTop 4.2857480315
Selection.ShapeRange.ScaleHeight 1.0561504628, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 425.3571653543, 712.5, _
101.7856692913, 153.2142519685).Select
obj7 = Selection.Name
Selection.ShapeRange.Flip msoFlipVertical
Selection.ShapeRange.IncrementLeft -43.9285826772
Selection.ShapeRange.IncrementRotation -25.0553
Selection.ShapeRange.ScaleWidth 0.7104654059, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 25.7142519685
Selection.ShapeRange.IncrementTop -12.8571653543
Selection.ShapeRange.IncrementRotation 7.8771
Selection.ShapeRange.IncrementLeft -8.5714173228
Selection.ShapeRange.IncrementTop -3.2143307087
Selection.ShapeRange.ScaleHeight 1.0952898545, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(1) = 0.03767
Selection.ShapeRange.Adjustments.Item(1) = 0.21731
Selection.ShapeRange.IncrementRotation -8.1184
Selection.ShapeRange.IncrementLeft 15
Selection.ShapeRange.IncrementTop 2.1429133858
Selection.ShapeRange.IncrementLeft 3.2143307087
Selection.ShapeRange.IncrementTop -1.0714173228
Selection.ShapeRange.IncrementRotation -2.17505
Selection.ShapeRange.IncrementLeft 2.1428346457
Selection.ShapeRange.IncrementTop -4.2858267717
ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 572.1428346457, 669.6428346457, _
215.3571653543, 92.1429133858).Select
obj8 = Selection.Name
Selection.ShapeRange.IncrementRotation 31.8158333333
Selection.ShapeRange.Adjustments.Item(1) = 0.66152
Selection.ShapeRange.IncrementLeft -27.8571653543
Selection.ShapeRange.IncrementTop -9.6428346457
Selection.ShapeRange.ScaleWidth 1.0518742715, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0681635426, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.5392321963, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.1122727339, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 9.6427559055
Selection.ShapeRange.IncrementTop -11.7856692913
Selection.ShapeRange.IncrementRotation -3.84175
Selection.ShapeRange.IncrementLeft 1.0713385827
Selection.ShapeRange.IncrementTop 1.0714173228
Selection.ShapeRange.IncrementLeft -7.4999212598
Selection.ShapeRange.IncrementTop -8.5714173228
Selection.ShapeRange.IncrementLeft 7.5
Selection.ShapeRange.IncrementLeft -5.3570866142
Selection.ShapeRange.IncrementTop -3.2142519685
Selection.ShapeRange.ScaleWidth 0.988338433, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.0117620877, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(1) = 0.9159
Selection.ShapeRange.IncrementRotation -1.9437833333
ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, 484.2857480315, _
663.2142519685, 94.2856692913, 54.6429133858).Select
obj9 = Selection.Name
Selection.ShapeRange.IncrementRotation 108.6000833333
Selection.ShapeRange.ScaleWidth 0.5990021947, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -34.2857480315
Selection.ShapeRange.IncrementTop -18.2142519685
Selection.ShapeRange.IncrementLeft 3.2142519685
Selection.ShapeRange.IncrementTop -1.0714173228
Selection.ShapeRange.Adjustments.Item(1) = 0.49879
Selection.ShapeRange.ScaleHeight 3.6637784326, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 231.4285826772
Selection.ShapeRange.IncrementTop 88.928503937
Selection.ShapeRange.ScaleHeight 1.4758669894, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.8526716876, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -10.7142519685
Selection.ShapeRange.IncrementTop -6.4285826772
Selection.ShapeRange.Adjustments.Item(1) = 0.70276
Selection.ShapeRange.IncrementLeft 8.5714173228
Selection.ShapeRange.IncrementTop -1.0715748031
Selection.ShapeRange.ScaleHeight 1.0228675087, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0515742717, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.86476
Selection.ShapeRange.ScaleWidth 1.133615876, msoFalse, msoScaleFromBottomRight

ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, 407.1428346457, _
664.2857480315, 155.3571653543, 24.6428346457).Select
obj10 = Selection.Name
Selection.ShapeRange.Flip msoFlipVertical
Selection.ShapeRange.IncrementRotation -27.4852666667
Selection.ShapeRange.IncrementLeft -39.6427559055
Selection.ShapeRange.IncrementTop 22.5
Selection.ShapeRange.IncrementRotation -9.9296
Selection.ShapeRange.ScaleWidth 0.8634794297, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.404449074, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -5.3571653543
Selection.ShapeRange.IncrementTop 11.7857480315
Selection.ShapeRange.ScaleWidth 0.8672975378, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 7.5
Selection.ShapeRange.IncrementRotation 8.6763
Selection.ShapeRange.IncrementLeft -6.4285826772
Selection.ShapeRange.IncrementTop -2.1428346457
Selection.ShapeRange.IncrementRotation -10.4602
Selection.ShapeRange.IncrementLeft 1.0714173228
Selection.ShapeRange.IncrementTop -2.1428346457
Selection.ShapeRange.IncrementLeft 4.2855905512
Selection.ShapeRange.IncrementTop -1.0713385827

ActiveSheet.Shapes.Range(Array(obj7)).Select
Selection.ShapeRange.IncrementLeft -4.2856692913
Selection.ShapeRange.IncrementTop 1.071496063
Selection.ShapeRange.IncrementRotation 3.85375
Selection.ShapeRange.IncrementLeft -6.4285826772
Selection.ShapeRange.IncrementTop 4.2856692913
Selection.ShapeRange.IncrementLeft 5.3572440945
Selection.ShapeRange.ScaleWidth 0.9256107315, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 3.2142519685
Selection.ShapeRange.IncrementTop -5.3571653543
Selection.ShapeRange.IncrementRotation 4.3869833333
Selection.ShapeRange.IncrementLeft -8.5714173228
Selection.ShapeRange.IncrementTop 2.1428346457
Selection.ShapeRange.IncrementLeft 3.2142519685
Selection.ShapeRange.IncrementTop 3.2142519685

ActiveSheet.Shapes.Range(Array(obj6)).Select
Selection.ShapeRange.ScaleWidth 1.073830747, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.0647943256, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0313992727, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.9399026822, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9824220222, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.9527644166, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0437361989, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.0695289788, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9904752983, msoFalse, _
msoScaleFromBottomRight

ActiveSheet.Shapes.Range(Array(obj7)).Select
Selection.ShapeRange.ScaleHeight 0.8424351547, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes.Range(Array(obj6)).Select
Selection.ShapeRange.ScaleWidth 1.0292917307, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.2151800382, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.9686802448, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9382859291, msoFalse, _
msoScaleFromBottomRight

ActiveSheet.Shapes.Range(Array(obj6, obj7, obj8, obj9, obj10)).Select
Selection.ShapeRange.Group.Select
gObj3 = Selection.Name
Selection.ShapeRange.Line.Visible = msoFalse

With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.0500000007
.Transparency = 0
.Solid
End With

Selection.ShapeRange.IncrementLeft -120
Selection.ShapeRange.IncrementTop -412.5
Selection.Copy

ActiveSheet.Paste
gObj4 = Selection.Name
Selection.ShapeRange.Flip msoFlipVertical
Selection.ShapeRange.IncrementLeft -17.1429133858
Selection.ShapeRange.IncrementTop 147.8571653543
Selection.ShapeRange.IncrementTop 4.2857480315
Selection.ShapeRange.IncrementLeft 2.1428346457
Selection.ShapeRange.IncrementTop 10.7142519685
Selection.ShapeRange.IncrementTop -8.5714173228
ActiveSheet.Shapes.Range(Array(gObj4)).Select
Selection.ShapeRange.IncrementRotation 3.3922833333
ActiveSheet.Shapes.Range(Array(gObj4)).Select
Selection.ShapeRange.IncrementLeft -1.0714173228
Selection.ShapeRange.IncrementTop 1.0714173228
Selection.ShapeRange.IncrementTop 1.0714173228

ActiveSheet.Shapes.Range(Array(gObj3)).Select
Selection.ShapeRange.IncrementLeft 163.9285826772
Selection.ShapeRange.IncrementTop -58.9285826772
ActiveSheet.Shapes.Range(Array(gObj3)).Select
Selection.ShapeRange.IncrementTop -31.0714173228
Selection.ShapeRange.IncrementTop 7.5
Selection.ShapeRange.IncrementRotation -3.3922833333
Selection.ShapeRange.IncrementLeft 1.0714173228
Selection.ShapeRange.IncrementTop -3.2143307087
ActiveSheet.Shapes.Range(Array(gObj4)).Select
Selection.ShapeRange.IncrementTop 27.8571653543
Selection.ShapeRange.IncrementLeft 7.5
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -2.1428346457
Selection.ShapeRange.IncrementLeft 5.3570866142
Selection.ShapeRange.IncrementLeft 2.1429133858
Selection.ShapeRange.IncrementTop 4.2856692913
Selection.ShapeRange.IncrementLeft -3.2143307087
Selection.ShapeRange.IncrementTop -2.1428346457
Selection.ShapeRange.IncrementLeft 1.0714173228
Selection.ShapeRange.IncrementTop 1.0714173228
Selection.ShapeRange.IncrementTop 1.0714173228

ActiveSheet.Shapes.Range(Array(gObj4)).Select
Selection.ShapeRange.IncrementLeft 166.0714173228
Selection.ShapeRange.IncrementTop -38.5714173228
Selection.ShapeRange.IncrementLeft 12.8571653543
Selection.ShapeRange.IncrementLeft -6.4285826772
Selection.ShapeRange.IncrementRotation -2.92955
Selection.ShapeRange.ScaleHeight 0.9502131253, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -10.7142519685
Selection.ShapeRange.IncrementTop -4.2856692913
Selection.ShapeRange.IncrementLeft 6.4285826772
Selection.ShapeRange.IncrementRotation -357.07045
Selection.ShapeRange.IncrementRotation 2.5625
Selection.ShapeRange.IncrementLeft 7.5
Selection.ShapeRange.IncrementTop 1.0714173228

ActiveSheet.Shapes.Range(Array(gObj3)).Select
Selection.ShapeRange.IncrementLeft -3.2141732283
Selection.ShapeRange.IncrementTop 22.5
Selection.ShapeRange.IncrementLeft 5.3571653543
Selection.ShapeRange.IncrementTop 3.2144094488
Selection.ShapeRange.IncrementRotation -356.6077166667
Selection.ShapeRange.IncrementLeft -1.0714173228
Selection.ShapeRange.IncrementTop 5.3570866142

ActiveSheet.Shapes.Range(Array(gObj4)).Select
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -18.2142519685
Selection.ShapeRange.IncrementLeft 3.2142519685
Selection.ShapeRange.IncrementTop -1.0713385827
Selection.ShapeRange.IncrementRotation -2.6917833333

ActiveSheet.Shapes.AddShape(msoShapeBlockArc, 550.9090551181, 1461.8181889764, _
400.9091338583, 388.6363779528).Select
obj11 = Selection.Name
Selection.ShapeRange.Adjustments.Item(1) = -178.2901833333
Selection.ShapeRange.ScaleHeight 1.0315790199, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.9863945057, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.8095238656, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8034483589, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(1) = 158.8705666667
Selection.ShapeRange.IncrementRotation 66.8854833333
Selection.ShapeRange.IncrementLeft -95.4546456693
Selection.ShapeRange.IncrementTop -6.8181889764
Selection.ShapeRange.IncrementRotation 20.1051666667
Selection.ShapeRange.ScaleWidth 0.9897031051, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.5135848495, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.6196989099, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 46.3636220472
Selection.ShapeRange.IncrementTop 125.454488189
Selection.ShapeRange.ScaleHeight 1.0047414916, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.9658686174, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-9
Selection.ShapeRange.Adjustments.Item(1) = 157.6976
Selection.ShapeRange.Adjustments.Item(2) = -13.4990333333
ActiveWindow.Zoom = 70
ActiveWindow.SmallScroll Down:=6
Selection.ShapeRange.IncrementRotation 14.9725
Selection.ShapeRange.ScaleWidth 0.7765600186, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6789998563, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft 56.7856692913
Selection.ShapeRange.IncrementTop 61.0714173228
Selection.ShapeRange.ScaleWidth 1.0437721317, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0767931367, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -23.5714173228
Selection.ShapeRange.IncrementTop -1.0714173228
Selection.ShapeRange.IncrementLeft 9.6428346457
Selection.ShapeRange.IncrementTop 6.4286614173
Selection.ShapeRange.Adjustments.Item(1) = 143.3190333333
Selection.ShapeRange.IncrementRotation 25.3129333333
Selection.ShapeRange.ScaleWidth 1.029727614, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.9552998315, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.9840104835, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.0847059043, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -5.3571653543
Selection.ShapeRange.IncrementTop -23.5714173228
Selection.ShapeRange.IncrementRotation 5.1793666667
Selection.ShapeRange.IncrementTop 8.5714173228
Selection.ShapeRange.ScaleWidth 1.0448266841, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.0117701879, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -9.6429133858
Selection.ShapeRange.IncrementTop 13.9286614173
Selection.ShapeRange.Adjustments.Item(2) = -24.58945
Selection.ShapeRange.Adjustments.Item(1) = 137.4376
Selection.ShapeRange.IncrementRotation 12.0356833333
Selection.ShapeRange.ScaleWidth 0.9315242437, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9071903862, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -4.2856692913
Selection.ShapeRange.IncrementTop 16.0714173228
Selection.ShapeRange.IncrementLeft 12.8570866142
Selection.ShapeRange.IncrementTop -1.0714173228
Selection.ShapeRange.IncrementRotation -6.41555
Selection.ShapeRange.IncrementLeft 10.7142519685
Selection.ShapeRange.IncrementTop 4.2857480315
Selection.ShapeRange.Adjustments.Item(1) = 111.7737
Selection.ShapeRange.IncrementRotation 22.8575
Selection.ShapeRange.Adjustments.Item(1) = 91.59875
Selection.ShapeRange.IncrementRotation 14.2731833333
Selection.ShapeRange.Adjustments.Item(3) = 0.1172166667

Selection.ShapeRange.Adjustments.Item(1) = 135.3781666667
Selection.ShapeRange.IncrementRotation -35.7680166667
Selection.ShapeRange.IncrementRotation -6.57625
Selection.ShapeRange.Adjustments.Item(1) = 155.7019833333
Selection.ShapeRange.IncrementRotation -19.4813666667
Selection.ShapeRange.IncrementLeft -253.1249606299
Selection.ShapeRange.IncrementTop -1209.3750393701
ActiveWindow.SmallScroll Down:=-33
Selection.ShapeRange.IncrementRotation 2.6119666667
Selection.ShapeRange.IncrementRotation 2.0766166667
Selection.ShapeRange.ScaleWidth 1.0562451134, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.9157369537, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.9197489468, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8796152141, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.9550406971, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0684737161, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -18.2142519685
Selection.ShapeRange.IncrementTop -35.3570866142
Selection.ShapeRange.IncrementTop -11.7857480315
Selection.ShapeRange.IncrementLeft 13.6364566929
Selection.ShapeRange.IncrementLeft -0.00007874015748
Selection.ShapeRange.IncrementTop 4.0909448819
Selection.ShapeRange.IncrementLeft 4.0909448819
Selection.ShapeRange.IncrementTop 0.00007874015748

With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.Line.Visible = msoFalse


ActiveSheet.Shapes.Range(Array(gObj3, gObj4)).Select
Selection.ShapeRange.Group.Select
gObjG2 = Selection.Name

ActiveSheet.Shapes.Range(Array(gObjG1, gObjG2, obj11)).Select
Selection.ShapeRange.Group.Select
finGObj1 = Selection.Name
belt5 = Selection.Name

End Sub

Sub Macro7()

Dim obj11 As String
Dim obj12 As String
Dim obj13 As String
Dim obj14 As String
Dim obj15 As String
Dim obj16 As String
Dim obj17 As String
Dim obj18 As String
Dim obj19 As String
Dim obj20 As String
Dim obj21 As String

Dim GObj5 As String
Dim GObj6 As String


ActiveWindow.Zoom = 85
ActiveSheet.Shapes.AddShape(msoShapeDonut, 481.7647244094, 1536.1764566929, _
134.1176377953, 134.1176377953).Select
obj12 = Selection.Name
Selection.ShapeRange.Adjustments.Item(1) = 0.15481
Selection.ShapeRange.IncrementLeft -11.4705511811
Selection.ShapeRange.IncrementTop -10.5882677165
Selection.ShapeRange.ScaleWidth 0.8486843728, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8486843728, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 4.4117322835
Selection.ShapeRange.IncrementLeft -2.6470866142
Selection.ShapeRange.ScaleWidth 0.9689926181, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9689926181, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 0.8823622047
Selection.ShapeRange.IncrementLeft 0.8823622047
Selection.ShapeRange.IncrementLeft 5
Selection.ShapeRange.IncrementTop 52.0588188976
Selection.ShapeRange.IncrementTop -8.8235433071

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 386.4705511811, 1533.5294488189 _
, 129.7059055118, 25.5881889764).Select
obj13 = Selection.Name
Selection.ShapeRange.IncrementRotation 35.5822666667
Selection.ShapeRange.IncrementLeft -16.7646456693
Selection.ShapeRange.IncrementTop 20.2942519685
Selection.ShapeRange.ScaleHeight 0.700535434, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft 3.5294488189
Selection.ShapeRange.IncrementTop -6.1765354331
Selection.ShapeRange.ScaleWidth 0.8986374384, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9763938977, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 11.4706299213
Selection.ShapeRange.IncrementTop 41.4706299213

Selection.ShapeRange.Duplicate.Select
obj14 = Selection.Name
Selection.ShapeRange.IncrementLeft 9.7059055118
Selection.ShapeRange.IncrementTop -31.7647244094
Selection.ShapeRange.IncrementLeft -3.5294488189
Selection.ShapeRange.IncrementTop -4.4118110236
Selection.ShapeRange.ScaleWidth 0.6961481976, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.5882966902, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.963209091, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.8457715836, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.9564288833, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -19.4117322835
Selection.ShapeRange.IncrementTop -13.2352755906

ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 387.3529133858, 1459.4117322835 _
, 59.1176377953, 41.4706299213).Select
obj15 = Selection.Name
Selection.ShapeRange.IncrementRotation 37.2118833333
Selection.ShapeRange.IncrementLeft 3.5293700787
Selection.ShapeRange.IncrementTop 16.7647244094
Selection.ShapeRange.IncrementRotation -2.6467666667
Selection.ShapeRange.IncrementLeft 0.8822834646
Selection.ShapeRange.IncrementTop 1.7648031496
Selection.ShapeRange.ScaleHeight 0.8656254213, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.59815
Selection.ShapeRange.ScaleHeight 0.8416621884, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.7728670534, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.1555757124, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.83392
Selection.ShapeRange.ScaleWidth 1.0675724633, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.0735383836, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 4.4118110236
Selection.ShapeRange.IncrementTop 37.0588188976
Selection.ShapeRange.IncrementLeft -0.00007874015748
Selection.ShapeRange.IncrementTop 2.6470866142
Selection.ShapeRange.IncrementTop -0.8823622047
Selection.ShapeRange.IncrementTop -0.8823622047

ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 330, 1511.4705511811, _
82.0588188976, 59.1177165354).Select
obj16 = Selection.Name
Selection.ShapeRange.IncrementRotation 217.2857
Selection.ShapeRange.IncrementLeft 1.7647244094
Selection.ShapeRange.IncrementTop 3.5294488189
Selection.ShapeRange.ScaleWidth 0.8308866216, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.6474164053, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.1143080196, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.54077
Selection.ShapeRange.ScaleWidth 1.0721390921, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.46219
Selection.ShapeRange.ScaleHeight 0.8295187799, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft 1.7647244094
Selection.ShapeRange.IncrementTop 31.7646456693



ActiveSheet.Shapes.Range(Array(obj12, obj13, obj14, obj15, obj16)).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.Line.Visible = msoFalse


ActiveSheet.Shapes.AddShape(msoShapeFlowchartTerminator, 321.4285826772, _
1346.7857480315, 98.5714173228, 36.428503937).Select
obj17 = Selection.Name
Selection.ShapeRange.IncrementLeft 102.8570866142
Selection.ShapeRange.IncrementTop 247.5
Selection.ShapeRange.IncrementRotation 34.3803333333
Selection.ShapeRange.IncrementLeft 90
Selection.ShapeRange.IncrementTop 92.142992126
Selection.ShapeRange.IncrementTop -55.9091338583
Selection.ShapeRange.Line.Visible = msoFalse
ActiveWindow.SmallScroll Down:=21
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = -0.349999994
.Transparency = 0
.Solid
End With
ActiveWindow.SmallScroll Down:=-15
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.349999994
.Transparency = 0
.Solid
End With

ActiveSheet.Shapes.Range(Array(obj12, obj13, obj14, obj15, obj16, obj17)).Select
Selection.ShapeRange.Group.Select
GObj5 = Selection.Name
belt4 = Selection.Name

End Sub



Sub Macro53()
Dim obj28 As String
Dim obj29 As String
Dim obj30 As String
Dim obj31 As String
Dim obj32 As String
ActiveSheet.Shapes.AddShape(msoShapeDonut, 687.2727559055, 1273.6363779528, _
443.1818110236, 443.1818110236).Select
obj28 = Selection.Name
Selection.ShapeRange.IncrementLeft -125.4545669291
Selection.ShapeRange.ScaleWidth 0.8892306867, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8892306867, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(1) = 0.11499
Selection.ShapeRange.IncrementTop -19.0909448819
Selection.ShapeRange.IncrementLeft 16.3636220472
Selection.ShapeRange.IncrementTop -4.0909448819
Selection.ShapeRange.IncrementTop -12.2727559055
Selection.ShapeRange.IncrementTop -5.454488189
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
ActiveSheet.Shapes.AddShape(msoShapeDonut, 691.3636220472, 1329.5454330709, _
302.7273228346, 302.7273228346).Select
obj29 = Selection.Name
Selection.ShapeRange.IncrementLeft -51.8181889764
Selection.ShapeRange.IncrementTop -34.0909448819
Selection.ShapeRange.ScaleWidth 0.8738739184, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8738739184, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(1) = 0.27062
Selection.ShapeRange.ScaleWidth 1.0285714791, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0285714875, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.0297618741, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0297618826, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -5.454488189
Selection.ShapeRange.IncrementTop -4.0908661417
Selection.ShapeRange.IncrementTop -4.0909448819
Selection.ShapeRange.IncrementTop 4.0909448819
Selection.ShapeRange.ScaleWidth 1.0192678962, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0192679015, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -4.0908661417
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 255)
.Transparency = 0.1980392039
.Solid
End With
ActiveSheet.Shapes.AddShape(msoShapeDonut, 662.7272440945, 1272.2727559055, _
385.9090551181, 385.9090551181).Select
obj30 = Selection.Name
Selection.ShapeRange.Adjustments.Item(1) = 0.12971
Selection.ShapeRange.IncrementLeft -80.4545669291
Selection.ShapeRange.IncrementTop -27.2726771654
Selection.ShapeRange.IncrementTop -9.5454330709
Selection.ShapeRange.ScaleWidth 0.950529938, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.950529938, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementTop 5.4545669291
Selection.ShapeRange.IncrementLeft 8.1818110236
Selection.ShapeRange.IncrementLeft 64.0908661417
Selection.ShapeRange.Adjustments.Item(1) = 0.10362
Selection.ShapeRange.Adjustments.Item(1) = 0.1036
Selection.ShapeRange.IncrementLeft -49.0909448819
Selection.ShapeRange.IncrementTop -2.7272440945
Selection.ShapeRange.IncrementLeft -19.0908661417
Selection.ShapeRange.ScaleWidth 0.9591080134, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9591080134, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementTop 4.0909448819
Selection.ShapeRange.IncrementLeft 6.8181889764
Selection.ShapeRange.IncrementTop 6.8181889764
Selection.ShapeRange.IncrementLeft 5.4545669291
Selection.ShapeRange.IncrementTop 5.4545669291

ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 705, 1030.9090551181, 105, _
57.2727559055).Select
obj31 = Selection.Name
Selection.ShapeRange.Adjustments.Item(1) = 0.5119
Selection.ShapeRange.IncrementTop 15
Selection.ShapeRange.ScaleHeight 0.5238092619, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.4090918635, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.Adjustments.Item(1) = 0.76996
Selection.ShapeRange.ScaleHeight 0.6451615307, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 270
Selection.ShapeRange.IncrementLeft 144.5454330709
Selection.ShapeRange.IncrementTop 358.6363779528
ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 416.25, 961.8750393701, 116.25, _
39.3749606299).Select
obj32 = Selection.Name
Selection.ShapeRange.IncrementRotation 90
Selection.ShapeRange.ScaleHeight 0.8333326667, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft 166.8750393701
Selection.ShapeRange.IncrementTop 399.3751181102
Selection.ShapeRange.IncrementLeft 7.5
Selection.ShapeRange.IncrementTop 0.00007874015748
ActiveWindow.Zoom = 55
ActiveWindow.Zoom = 70
ActiveWindow.Zoom = 85
Selection.ShapeRange.IncrementTop 43.9286614173
Selection.ShapeRange.Adjustments.Item(1) = 0.80997
Selection.ShapeRange.IncrementLeft -5.3571653543
Selection.ShapeRange.IncrementTop 0.00007874015748
ActiveSheet.Shapes.Range(Array(obj28, obj29, _
obj30, obj31, obj32)).Select
Selection.ShapeRange.Group.Select
belt2 = Selection.Name
ActiveSheet.Shapes.Range(Array(obj30, _
obj31, obj32)).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.Line.Visible = msoFalse
End Sub


Sub Macro42()

ActiveSheet.Shapes.AddShape(msoShapeOval, 437.6470866142, 2149.4117322835, _
307.0588188976, 307.0588188976).Select
obj22 = Selection.Name
Selection.ShapeRange.IncrementLeft -47.647007874
Selection.ShapeRange.IncrementTop -20.2941732283
Selection.ShapeRange.IncrementLeft 7.0588188976
Selection.ShapeRange.IncrementTop 7.9411811024
Selection.ShapeRange.IncrementLeft -7.9411811024
Selection.ShapeRange.IncrementTop -9.7058267717
Selection.ShapeRange.ScaleWidth 1.0431031322, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0431031322, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 2.6470866142
Selection.ShapeRange.IncrementTop 5.2940944882
ActiveSheet.Shapes.AddShape(msoShapeFlowchartDelay, 365.2940944882, _
2034.7059055118, 134.1176377953, 105.8823622047).Select
obj23 = Selection.Name
Selection.ShapeRange.IncrementRotation 211.0975333333
Selection.ShapeRange.IncrementLeft -37.0588976378
Selection.ShapeRange.IncrementTop 127.9411811024
ActiveSheet.Shapes.AddShape(msoShapeBlockArc, 405, 2531.4705511811, _
99.7059055118, 99.7059055118).Select
obj24 = Selection.Name
Selection.ShapeRange.Adjustments.Item(1) = -116.5651166667
Selection.ShapeRange.Adjustments.Item(2) = 1.4595333333
Selection.ShapeRange.ScaleWidth 1.5132740777, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.3097345342, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementRotation 190.6440833333
Selection.ShapeRange.IncrementLeft 3.5292913386
Selection.ShapeRange.IncrementTop -214.4118110236
Selection.ShapeRange.ScaleWidth 1.1329596087, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Adjustments.Item(2) = 2.95935
Selection.ShapeRange.Adjustments.Item(1) = -108.30045
Selection.ShapeRange.IncrementLeft 13.2352755906
Selection.ShapeRange.IncrementTop 0.8823622047
Selection.ShapeRange.Adjustments.Item(2) = 3.1108166667
Selection.ShapeRange.IncrementLeft -4.4117322835
Selection.ShapeRange.IncrementTop 9.7059055118
Selection.ShapeRange.IncrementLeft 8.8235433071
Selection.ShapeRange.IncrementTop -2.647007874
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.Line.Visible = msoFalse
ActiveSheet.Shapes.AddShape(msoShapeFlowchartManualOperation, 390, _
2299.4117322835, 50.2940944882, 75.8823622047).Select
obj25 = Selection.Name
Selection.ShapeRange.IncrementRotation 139.1860833333
Selection.ShapeRange.ScaleWidth 0.8240960649, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft 0.8823622047
Selection.ShapeRange.IncrementTop 17.6470866142
Selection.ShapeRange.IncrementLeft -2.6470866142
Selection.ShapeRange.IncrementTop -0.8823622047
Selection.ShapeRange.IncrementRotation 7.4506166667
Selection.ShapeRange.IncrementLeft -4.4118110236
Selection.ShapeRange.IncrementTop 3.5294488189
Selection.ShapeRange.IncrementLeft 8.8235433071
Selection.ShapeRange.IncrementTop -4.4118110236
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 575.6250393701, 1033.1250393701 _
, 97.5, 73.1249606299).Select
obj26 = Selection.Name
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.IncrementRotation 32.4594
Selection.ShapeRange.IncrementLeft -26.25
Selection.ShapeRange.IncrementTop 22.5
Selection.ShapeRange.IncrementLeft 16.8750393701
Selection.ShapeRange.IncrementTop -16.8750393701
Selection.ShapeRange.IncrementLeft 39.3749606299
Selection.ShapeRange.IncrementTop 1031.2499212598
Selection.ShapeRange.IncrementTop 61.3637007874
Selection.ShapeRange.IncrementLeft -20.454488189
Selection.ShapeRange.IncrementLeft 0.00007874015748
Selection.ShapeRange.IncrementTop -10.9090551181
ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 549.3750393701, 1050, _
88.1249606299, 157.5).Select
obj27 = Selection.Name
Selection.ShapeRange.ScaleWidth 0.744680737, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset8
Selection.ShapeRange.IncrementRotation 247.4130833333
Selection.ShapeRange.IncrementLeft 22.5
Selection.ShapeRange.IncrementTop 941.2500787402
Selection.ShapeRange.ScaleWidth 0.7165280639, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.1410778307, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8068431446, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 18.7500787402
Selection.ShapeRange.IncrementTop -11.25
Selection.ShapeRange.IncrementLeft 15
Selection.ShapeRange.IncrementTop -1.8749606299
Selection.ShapeRange.ScaleHeight 0.8694364169, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 3.75
Selection.ShapeRange.IncrementTop -5.6248818898
Selection.ShapeRange.IncrementLeft 1.8749606299
Selection.ShapeRange.IncrementTop 13.1248818898
Selection.ShapeRange.IncrementTop 61.3635433071
Selection.ShapeRange.IncrementLeft -36.8181889764
Selection.ShapeRange.IncrementTop -6.8181889764
Selection.ShapeRange.IncrementLeft 21.8181102362
Selection.ShapeRange.IncrementLeft -8.1817322835
Selection.ShapeRange.IncrementTop -0.00007874015748
Selection.ShapeRange.IncrementLeft -4.0909448819
ActiveWindow.SmallScroll Down:=-12
Selection.ShapeRange.IncrementLeft 4.0909448819
Selection.ShapeRange.IncrementTop -8.1817322835
Selection.ShapeRange.IncrementLeft 6.8181889764
Selection.ShapeRange.IncrementTop 8.1818110236
Selection.ShapeRange.IncrementTop -5.4545669291
Selection.ShapeRange.IncrementTop -5.454488189
ActiveWindow.SmallScroll Down:=3
Selection.ShapeRange.IncrementRotation -6.4619166667
Selection.ShapeRange.IncrementRotation -2.9102333333
Selection.ShapeRange.IncrementTop 4.0908661417

ActiveSheet.Shapes.Range(Array(obj22, obj23, obj25)). _
Select
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset8
ActiveSheet.Shapes.Range(Array(obj22, obj23, obj24, obj25, obj26, obj27)). _
Select
Selection.ShapeRange.Group.Select
belt3 = Selection.Name
End Sub

上記のソースの反映のやり方ですが、まずエクセルを開きます。

 

次に alt + F11 で開発ウィンドウが開きます。
※開かない場合は以下のサイトを参考にしてください。
エクセルの開発タブを表示する方法

上記で紹介したゼロワンドライバーのソースをコピーして貼り付けます。

前半で紹介したボタンの作成手順に従って、ボタンを配置し、「zeroOneDriver」を選択してOKボタンを押します。

追加したボタンをポチるとゼロワンドライバーが作成されるはずです。

とりあえず今回はここまで!
始めての方でもマクロに挑みやすいように今回は図形の自動生成を作成してみました。
是非、カスタマイズしてみてください。

Pocket
LINEで送る

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です