シェイプ一覧を出力するマクロ
2021年10月06日
前回の構成図自動結線マクロ（その５）で書いた通り
結線図をもとに結線表を作るには、正しく結線図を描いていて
さらにシェイプの名称も正しく設定していないといけない。
でも、結線図からそれを判断するのは大変なので、
デバッグ用にシェイプ一覧を取得するマクロを作った。
こっちを掘り下げた方が色々使い道がありそうなので、
ひとまずできたところまででアップすることにした。
マクロの構成は簡単。
すべてのオートシェイプをループで選択して
名称やらテキストやらをセルに出力するだけ。
ついでに文字の色や線の色、塗りつぶしの色をRGBで取得したり
シェイプの枠線を出力先のセルにそれっぽく出したり。
変更を加える作業については、マクロで実行するとUnDoが使えないので、
マクロで様々な条件のシェイプを選択できると便利かなー。（将来対応）
●まずは全シェイプをループさせるところ。
For Each Shp In ActiveSheet.Shapes
'Shp（Shape型変数）に対する処理
Next Shp
ちなみにActiveSheet.Shapesはドロップダウンリストも対象になるようで、
すべてのシェイプを消すような処理をすると、ドロップダウンリストも消えるとか。
https://excel-ubara.com/excelvba4/EXCEL241.html
For Eachの前にActiveSheet.Shapes.SelectAllで全選択して、
ActiveSheet.ShapesをSelection.shapeRangeにすれば大丈夫っぽい。
●辞書変数ポインタを使ったセル格納
出力列の入れ替えをできるように、辞書型の変数を定義して
列名をキーに、列番号を辞書登録してみた。
辞書登録する部分の順番を入れ替えれば出力列が入れ替わる。
セルに出力する部分は一旦配列に格納したほうがいいんだけど、
もうめんどい。
●枠線の設定
今回一番苦労したのがここ。
オートシェイプとセルで枠線の仕様が違う。
セルは枠線の種類と太さの組み合わせが決まっていて
許容されない組み合わせを設定すると、先に設定した値が自動的修正されてしまう。
Function LDS2BL(LDS As Long)では、オートシェイプの枠線の線種をセルの枠線の線種へ
プロパティ値を変換する関数。
ただ、セルの線種は線の太さとの組み合わせで定義されている部分があるので、
出力値を２桁にして無理やり対応した。
●シート名について
個人利用のため、Worksheets("接続図")のシェイプを
Worksheets("シェイプリスト")に出力する仕様にした。
汎用性を持たせるなら、
選択シートの内容を追加したシートに出力するかな。
●出力イメージ
イメージがつかめるように、出力結果シートに接続図をコピペ。
当初をRGBの値のセルを色に合わせて制御したけど、
テキストを出力したセルを制御する方針に変更。
そしたらRGBの値いらないか。。。
すごいざっくりとした説明だけど、以下ソース。
結線図をもとに結線表を作るには、正しく結線図を描いていて
さらにシェイプの名称も正しく設定していないといけない。
でも、結線図からそれを判断するのは大変なので、
デバッグ用にシェイプ一覧を取得するマクロを作った。
こっちを掘り下げた方が色々使い道がありそうなので、
ひとまずできたところまででアップすることにした。
マクロの構成は簡単。
すべてのオートシェイプをループで選択して
名称やらテキストやらをセルに出力するだけ。
ついでに文字の色や線の色、塗りつぶしの色をRGBで取得したり
シェイプの枠線を出力先のセルにそれっぽく出したり。
変更を加える作業については、マクロで実行するとUnDoが使えないので、
マクロで様々な条件のシェイプを選択できると便利かなー。（将来対応）
●まずは全シェイプをループさせるところ。
For Each Shp In ActiveSheet.Shapes
'Shp（Shape型変数）に対する処理
Next Shp
ちなみにActiveSheet.Shapesはドロップダウンリストも対象になるようで、
すべてのシェイプを消すような処理をすると、ドロップダウンリストも消えるとか。
https://excel-ubara.com/excelvba4/EXCEL241.html
For Eachの前にActiveSheet.Shapes.SelectAllで全選択して、
ActiveSheet.ShapesをSelection.shapeRangeにすれば大丈夫っぽい。
●辞書変数ポインタを使ったセル格納
出力列の入れ替えをできるように、辞書型の変数を定義して
列名をキーに、列番号を辞書登録してみた。
辞書登録する部分の順番を入れ替えれば出力列が入れ替わる。
セルに出力する部分は一旦配列に格納したほうがいいんだけど、
もうめんどい。
●枠線の設定
今回一番苦労したのがここ。
オートシェイプとセルで枠線の仕様が違う。
セルは枠線の種類と太さの組み合わせが決まっていて
許容されない組み合わせを設定すると、先に設定した値が自動的修正されてしまう。
Function LDS2BL(LDS As Long)では、オートシェイプの枠線の線種をセルの枠線の線種へ
プロパティ値を変換する関数。
ただ、セルの線種は線の太さとの組み合わせで定義されている部分があるので、
出力値を２桁にして無理やり対応した。
●シート名について
個人利用のため、Worksheets("接続図")のシェイプを
Worksheets("シェイプリスト")に出力する仕様にした。
汎用性を持たせるなら、
選択シートの内容を追加したシートに出力するかな。
●出力イメージ
イメージがつかめるように、出力結果シートに接続図をコピペ。
当初をRGBの値のセルを色に合わせて制御したけど、
テキストを出力したセルを制御する方針に変更。
そしたらRGBの値いらないか。。。
すごいざっくりとした説明だけど、以下ソース。
Sub getObjNameList()
Worksheets("接続図").Select
Dim j As Long, Shp As Shape: j = 0
Dim myColor As Long
With Worksheets("シェイプリスト")
.Range("A3:Z" & .Cells(Rows.Count, 1).End(xlUp).Row).Delete
Dim Dic: Set Dic = CreateObject("Scripting.Dictionary")
Const titleRow = 2
Dim i As Long 'タイトル列を辞書登録
i = i + 1: Dic.Add "Link", i
i = i + 1: Dic.Add "No.", i
i = i + 1: Dic.Add "Name", i
i = i + 1: Dic.Add "Text", i
i = i + 1: Dic.Add "FontColor", i
i = i + 1: Dic.Add "FillColor", i
i = i + 1: Dic.Add "FillTranspa", i
i = i + 1: Dic.Add "LineWeight", i
i = i + 1: Dic.Add "LineColor", i
i = i + 1: Dic.Add "LineTranspa", i
i = i + 1: Dic.Add "LineDashStyle", i
i = i + 1: Dic.Add "ShpType", i
i = i + 1: Dic.Add "形状", i
i = i + 1: Dic.Add "width", i
i = i + 1: Dic.Add "height", i
i = i + 1: Dic.Add "TopleftCell", i
i = i + 1: Dic.Add "Connector", i
i = i + 1: Dic.Add "ConnectionSiteCount", i
.Cells(j + titleRow, Dic("No.")) = "No."
.Cells(j + titleRow, Dic("Link")) = "Link"
.Cells(j + titleRow, Dic("TopleftCell")) = "Cell"
.Cells(j + titleRow, Dic("width")) = "width"
.Cells(j + titleRow, Dic("height")) = "height"
.Cells(j + titleRow, Dic("ShpType")) = "ShpType"
.Cells(j + titleRow, Dic("形状")) = "形状"
.Cells(j + titleRow, Dic("Name")) = "Name"
.Cells(j + titleRow, Dic("Text")) = "Text"
.Cells(j + titleRow, Dic("FontColor")) = "FontColor"
.Cells(j + titleRow, Dic("FillColor")) = "FillColor"
.Cells(j + titleRow, Dic("FillTranspa")) = "Fill透"
.Cells(j + titleRow, Dic("LineWeight")) = "LineWeight"
.Cells(j + titleRow, Dic("LineColor")) = "LineColor"
.Cells(j + titleRow, Dic("LineTranspa")) = "Line透"
.Cells(j + titleRow, Dic("LineDashStyle")) = "DashStyle"
.Cells(j + titleRow, Dic("Connector")) = "Connector"
.Cells(j + titleRow, Dic("ConnectionSiteCount")) = "ConnectionSiteCount"
'ActiveSheet.Shapes.SelectAll
'For Each Shp In Selection.ShapeRange 'シート内の名前をチェック
For Each Shp In ActiveSheet.Shapes 'シート内の名前をチェック
j = j + 1
.Cells(j + titleRow, Dic("No.")) = j
.Cells(j + titleRow, Dic("Link")).Formula = "=HYPERLINK(""#接続図!" & Shp.TopLeftCell.Address(False, False) & """,""■"")"
.Cells(j + titleRow, Dic("TopleftCell")) = Shp.TopLeftCell.Address(False, False)
.Cells(j + titleRow, Dic("width")) = Shp.Width
.Cells(j + titleRow, Dic("height")) = Shp.Height
.Cells(j + titleRow, Dic("ShpType")) = Shp.AutoShapeType
.Cells(j + titleRow, Dic("形状")) = strAutoShapeType(Shp.AutoShapeType)
.Cells(j + titleRow, Dic("Name")) = Shp.Name
Call ChangeCellStyle(.Cells(j + titleRow, Dic("Text")), Shp)
If Shp.TextFrame2.HasText Then
myColor = Shp.TextFrame2.TextRange.Font.Fill.ForeColor.RGB
Call GetChangeColor(.Cells(j + titleRow, Dic("FontColor")), myColor)
Else
.Cells(j + titleRow, Dic("FontColor")) = "'-"
End If
myColor = Shp.Line.ForeColor.RGB
Call GetChangeColor(.Cells(j + titleRow, Dic("LineColor")), myColor)
myColor = Shp.Fill.ForeColor.RGB
Call GetChangeColor(.Cells(j + titleRow, Dic("FillColor")), myColor)
.Cells(j + titleRow, Dic("FillTranspa")) = Shp.Fill.Transparency
.Cells(j + titleRow, Dic("LineWeight")) = Shp.Line.Weight
.Cells(j + titleRow, Dic("LineTranspa")) = Shp.Line.Transparency
.Cells(j + titleRow, Dic("LineDashStyle")) = Shp.Line.DashStyle
.Cells(j + titleRow, Dic("Connector")) = Shp.Connector
.Cells(j + titleRow, Dic("ConnectionSiteCount")) = Shp.ConnectionSiteCount
Next Shp
.Select
End With
End Sub
Sub ChangeCellStyle(tRange As Range, Shp As Shape)
Dim myColor As Long
Dim LDS As Long: LDS = LDS2BL(Shp.Line.DashStyle)
Dim bw As Long
If LDS > 9 Then
bw = Int(LDS / 10)
LDS = LDS Mod 10
Else
bw = 0
End If
If Shp.TextFrame2.HasText Then
tRange = Shp.TextFrame2.TextRange.Text
tRange.Font.Color = Shp.TextFrame2.TextRange.Font.Fill.ForeColor.RGB
Else
tRange = "'-"
tRange = "'-"
End If
Call ChangeFillColor(tRange, Shp.Fill.ForeColor.RGB, Shp.Fill.Transparency)
If LDS = 3 Then LDS = -4115
If bw = 3 Then bw = -4138
Call ChangeBorderColor(tRange, Shp.Line.ForeColor.RGB, Shp.Line.Transparency, LDS, bw)
End Sub
Sub GetChangeColor(tRange As Range, myColor As Long) 'myColor = Shp.Fill.ForeColor.RGB
Dim R As Long: R = myColor Mod 256
Dim G As Long: G = Int(myColor / 256) Mod 256
Dim B As Long: B = Int(myColor / 256 / 256) Mod 256
tRange = "'(" & R & "," & G & "," & B & ")"
End Sub
Sub ChangeFillColor(tRange As Range, myColor As Long, Trnsprncy As Double) 'myColor = Shp.Fill.ForeColor.RGB
Dim R As Long: R = myColor Mod 256: R = R + (255 - R) * Trnsprncy
Dim G As Long: G = Int(myColor / 256) Mod 256: G = G + (255 - G) * Trnsprncy
Dim B As Long: B = Int(myColor / 256 / 256) Mod 256: B = B + (255 - B) * Trnsprncy
tRange.Interior.Color = RGB(R, G, B)
End Sub
Sub ChangeBorderColor(tRange As Range, myColor As Long, Trnsprncy As Double, BL As Long, bw As Long)
Dim R As Long: R = myColor Mod 256: R = R + (255 - R) * Trnsprncy
Dim G As Long: G = Int(myColor / 256) Mod 256: G = G + (255 - G) * Trnsprncy
Dim B As Long: B = Int(myColor / 256 / 256) Mod 256: B = B + (255 - B) * Trnsprncy
tRange.Borders.Color = RGB(R, G, B)
tRange.Borders.LineStyle = BL
If bw <> 0 Then tRange.Borders.Weight = bw
End Sub
Function LDS2BL(LDS As Long)
Select Case LDS
Case 1: LDS2BL = 1 '実線 xlContinuous/xlThin
Case 11: LDS2BL = 12 '点線 xlContinuous/xlHairline 2 11 薄い線 丸点線 LDS2BL = 2 '点線
Case 10: LDS2BL = 2 '点線 3 10 四角点線 LDS2BL = 2 '点線 xlDot/xlThin
Case 4: LDS2BL = 3 '破線 xlDash '-4115/xlThin
Case 5: LDS2BL = 4 ' 一点鎖線 xlDashDot/xlThin
Case 7: LDS2BL = 33 ' 6 7 長破線 破線 xlDash/xlMedium
Case 8: LDS2BL = 34 '7 8 長一点鎖線 xlDashDot/xlMedium
Case 9: LDS2BL = 35 '8 9 長二点鎖線 xlDashDotDot/xlMedium
Case -2: LDS2BL = -4142 'なし
Case -4118: LDS2BL = 2 '点線
Case -4115: LDS2BL = 3 '破線
Case Else
Debug.Print "Case Else @ function LDS2BL ", "LDS=" & LDS
LDS2BL = -4142 'なし
End Select
'https://www.tipsfound.com/vba/07010
' 定数名 値 説明 例 Borders.LineStyle = xlContinuous
'xlContinuous 1 実線 1
'xlDash -4115 破線 2
'xlDashDot 4 一点鎖線 3
'xlDashDotDot 5 二点鎖線 4
'xlDot -4118 点線 5
'xlDouble -4119 二重線 6
'xlSlantDashDot 13 斜め斜線 7
'xlLineStyleNone -4142 なし
'定数名 値 説明 例 Borders.Weight = xlThin
'xlHairline 1 極細 8
'xlThin 2 細 9
'xlMedium -4138 中 10
'xlThick 4 太 11
'https://officedic.com/excel-vba-autoshape-line/
' DashStyleの定数一覧
'定数 値 説明
'msoLineSolid 1 実線
'msoLineSquareDot 2 点線 (角)
'msoLineRoundDot 3 点線 (丸)
'msoLineDash 4 破線
'msoLineDashDot 5 一点鎖線
'msoLineDashDotDot 6 二点鎖線
'msoLineLongDash 7 長破線
'msoLineLongDashDot 8 長鎖線
'
End Function
Function strAutoShapeType(n As Long)
Select Case n
Case 1: strAutoShapeType = "四角形"
Case 2: strAutoShapeType = "平行四辺形"
Case 3: strAutoShapeType = "台形"
Case 4: strAutoShapeType = "ひし形"
Case 5: strAutoShapeType = "角丸四角形"
Case 6: strAutoShapeType = "八角形"
Case 7: strAutoShapeType = "二等辺三角形"
Case 8: strAutoShapeType = "直角三角形"
Case 9: strAutoShapeType = "楕円"
Case 10: strAutoShapeType = "六角形"
Case 11: strAutoShapeType = "十字形"
Case 12: strAutoShapeType = "ホームベース"
Case 13: strAutoShapeType = "円柱"
Case 14: strAutoShapeType = "直方体"
Case 15: strAutoShapeType = "斜角"
Case 16: strAutoShapeType = "メモ"
Case 17: strAutoShapeType = "スマイル"
Case 18: strAutoShapeType = "ドーナツ"
Case 19: strAutoShapeType = "禁止"
Case 20: strAutoShapeType = "アーチ"
Case 21: strAutoShapeType = "ハート"
Case 22: strAutoShapeType = "稲妻"
Case 23: strAutoShapeType = "太陽"
Case 24: strAutoShapeType = "月"
Case 25: strAutoShapeType = "円弧"
Case 26: strAutoShapeType = "大かっこ"
Case 27: strAutoShapeType = "中かっこ"
Case 28: strAutoShapeType = "ブローチ"
Case 29: strAutoShapeType = "左大かっこ"
Case 30: strAutoShapeType = "右大かっこ"
Case 31: strAutoShapeType = "左中かっこ"
Case 32: strAutoShapeType = "右中かっこ"
Case 33: strAutoShapeType = "右向きブロック矢印"
Case 34: strAutoShapeType = "左向きブロック矢印"
Case 35: strAutoShapeType = "上向きブロック矢印"
Case 36: strAutoShapeType = "下向きブロック矢印"
Case 37: strAutoShapeType = "左右ブロック矢印"
Case 38: strAutoShapeType = "上下 2 方向ブロック矢印"
Case 39: strAutoShapeType = "4 方向ブロック矢印"
Case 40: strAutoShapeType = "左、右、および上の 3 方向ブロック矢印"
Case 41: strAutoShapeType = "90°の曲線に続くブロック矢印"
Case 42: strAutoShapeType = "U 字型のブロック矢印"
Case 43: strAutoShapeType = "左および上矢印の 2 方向ブロック矢印"
Case 44: strAutoShapeType = "90°の鋭角線に続くブロック矢印既定では上向きです"
Case 45: strAutoShapeType = "右カーブ ブロック矢印"
Case 46: strAutoShapeType = "左カーブ ブロック矢印"
Case 47: strAutoShapeType = "上カーブ ブロック矢印"
Case 48: strAutoShapeType = "下カーブ ブロック矢印"
Case 49: strAutoShapeType = "先にストライプの付いた右向きのブロック矢印"
Case 50: strAutoShapeType = "右向きの V 字型矢印"
Case 51: strAutoShapeType = "ホームベース"
Case 52: strAutoShapeType = "山形"
Case 53: strAutoShapeType = "右矢印の付いた吹き出し"
Case 54: strAutoShapeType = "左矢印の付いた吹き出し"
Case 55: strAutoShapeType = "上矢印の付いた吹き出し"
Case 56: strAutoShapeType = "下矢印の付いた吹き出し"
Case 57: strAutoShapeType = "左右矢印の付いた吹き出し"
Case 58: strAutoShapeType = "上下のブロック矢印の付いた吹き出し"
Case 59: strAutoShapeType = "4 方向矢印の付いた吹き出し"
Case 60: strAutoShapeType = "180°の曲線に続くブロック矢印"
Case 61: strAutoShapeType = "フローチャート 処理"
Case 62: strAutoShapeType = "フローチャート 代替処理"
Case 63: strAutoShapeType = "フローチャート 判断"
Case 64: strAutoShapeType = "フローチャート データ"
Case 65: strAutoShapeType = "フローチャート 定義済み処理"
Case 66: strAutoShapeType = "フローチャート 内部記憶"
Case 67: strAutoShapeType = "フローチャート 書類"
Case 68: strAutoShapeType = "フローチャート 複数書類"
Case 69: strAutoShapeType = "フローチャート 端子"
Case 70: strAutoShapeType = "フローチャート 準備"
Case 71: strAutoShapeType = "フローチャート 手操作入力"
Case 72: strAutoShapeType = "フローチャート 手作業"
Case 73: strAutoShapeType = "フローチャート 結合子"
Case 74: strAutoShapeType = "フローチャート 他ページ結合子"
Case 75: strAutoShapeType = "フローチャート カード"
Case 76: strAutoShapeType = "フローチャート せん孔テープ"
Case 77: strAutoShapeType = "フローチャート 和接合"
Case 78: strAutoShapeType = "フローチャート 論理和"
Case 79: strAutoShapeType = "フローチャート 照合"
Case 80: strAutoShapeType = "フローチャート 分類"
Case 81: strAutoShapeType = "フローチャート 抜き出し"
Case 82: strAutoShapeType = "フローチャート 組み合わせ"
Case 83: strAutoShapeType = "フローチャート 記憶データ"
Case 84: strAutoShapeType = "フローチャート 論理積ゲート"
Case 85: strAutoShapeType = "フローチャート 順次アクセス記憶"
Case 86: strAutoShapeType = "フローチャート 磁気ディスク"
Case 87: strAutoShapeType = "フローチャート 直接アクセス記憶"
Case 88: strAutoShapeType = "フローチャート 表示"
Case 89: strAutoShapeType = "爆発 1"
Case 90: strAutoShapeType = "爆発 2"
Case 91: strAutoShapeType = "星 4"
Case 92: strAutoShapeType = "星 5"
Case 93: strAutoShapeType = "星 8"
Case 94: strAutoShapeType = "星 16"
Case 95: strAutoShapeType = "星 24"
Case 96: strAutoShapeType = "星 32"
Case 97: strAutoShapeType = "リボンの端よりも上に中央面があるリボン"
Case 98: strAutoShapeType = "リボンの端よりも下に中央面があるリボン"
Case 99: strAutoShapeType = "上カーブリボン"
Case 100: strAutoShapeType = "下カーブ リボン"
Case 101: strAutoShapeType = "縦巻き"
Case 102: strAutoShapeType = "横巻き"
Case 103: strAutoShapeType = "大波"
Case 104: strAutoShapeType = "小波"
Case 105: strAutoShapeType = "四角形吹き出し"
Case 106: strAutoShapeType = "角丸四角形吹き出し"
Case 107: strAutoShapeType = "円形吹き出し"
Case 108: strAutoShapeType = "雲形吹き出し"
Case 109: strAutoShapeType = "枠付きで、水平の吹き出し線の付いた吹き出し"
Case 110: strAutoShapeType = "斜めの直線の付いた吹き出し"
Case 111: strAutoShapeType = "折れ線の付いた吹き出し"
Case 112: strAutoShapeType = "U 字型の吹き出し線分の付いた吹き出し"
Case 113: strAutoShapeType = "水平の強調線の付いた吹き出し"
Case 114: strAutoShapeType = "斜めの吹き出し線と強調線の付いた吹き出し"
Case 115: strAutoShapeType = "折れた吹き出し線と強調線の付いた吹き出し"
Case 116: strAutoShapeType = "強調線および U 字型の吹き出し線分の付いた吹き出し"
Case 117: strAutoShapeType = "水平線の付いた吹き出し"
Case 118: strAutoShapeType = "枠および斜めの吹き出し線のない吹き出し"
Case 119: strAutoShapeType = "枠および折れた吹き出し線のない吹き出し"
Case 120: strAutoShapeType = "枠線および U 字型の吹き出し線分のない呼び出し"
Case 121: strAutoShapeType = "枠付きで、水平の強調線の付いた吹き出し"
Case 122: strAutoShapeType = "枠、斜めの直線、および強調線の付いた吹き出し"
Case 123: strAutoShapeType = "枠、折れた吹き出し線、強調線の付いた吹き出し"
Case 124: strAutoShapeType = "枠線、強調線、および U 字型の吹き出し線分の付いた吹き出し"
Case 125: strAutoShapeType = "既定の画像またはテキストのないボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 126: strAutoShapeType = "[ホーム] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 127: strAutoShapeType = "[ヘルプ] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 128: strAutoShapeType = "[情報] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 129: strAutoShapeType = "[戻る] または [前へ] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 130: strAutoShapeType = "[進む] または [次へ] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 131: strAutoShapeType = "[上旬] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 132: strAutoShapeType = "[終了] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 133: strAutoShapeType = "[戻る] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 134: strAutoShapeType = "[文書] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 135: strAutoShapeType = "[サウンド] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 136: strAutoShapeType = "[ビデオ] ボタンマウスクリックおよびマウスオーバー動作をサポートします"
Case 137: strAutoShapeType = "吹き出し"
Case 138: strAutoShapeType = "サポートされません"
Case 139: strAutoShapeType = "オフラインの記憶フローチャート記号"
Case 140: strAutoShapeType = "リボンの両端に矢印の付いた"
Case 141: strAutoShapeType = "四角形に 2 つの三角形図形を削除します斜めのストライプ"
Case 142: strAutoShapeType = "円 (円) で不足している部分です"
Case 143: strAutoShapeType = "非対称非平行辺の台形を塗りつぶす"
Case 144: strAutoShapeType = "Decagon"
Case 145: strAutoShapeType = "七角形です"
Case 146: strAutoShapeType = "Dodecagon"
Case 147: strAutoShapeType = "6 ポイントの星型です"
Case 148: strAutoShapeType = "7 番ポイントの星型です"
Case 149: strAutoShapeType = "10 ポイントの星型です"
Case 150: strAutoShapeType = "12 ポイントの星型です"
Case 151: strAutoShapeType = "1 つの丸い角を持つ四角形"
Case 152: strAutoShapeType = "2 つの丸められた角の辺を共有する四角形"
Case 154: strAutoShapeType = "スニペットの角の 1 つと 1 つの丸い角を持つ四角形"
Case 155: strAutoShapeType = "スニペットのいずれかの角を持つ四角形"
Case 156: strAutoShapeType = "辺を共有する 2 つのスニペットの角を持つ四角形"
Case 157: strAutoShapeType = "斜めにではなく、2 つの丸い角を持つ四角形"
Case 157: strAutoShapeType = "斜めにではなく、2 つのスニペット角を持つ四角形"
Case 158: strAutoShapeType = "長方形の画像フレーム"
Case 159: strAutoShapeType = "四角形の図枠の半分です"
Case 160: strAutoShapeType = "ドロップレットの水"
Case 161: strAutoShapeType = "円は、円の内部を外周上の 2 点を結ぶ直線弦を持つ円"
Case 162: strAutoShapeType = "四角形の穴を持つ四角形"
Case 163: strAutoShapeType = "加算記号 ‘＋’"
Case 164: strAutoShapeType = "減算記号 ‘－’"
Case 165: strAutoShapeType = "乗算記号 ‘×’"
Case 166: strAutoShapeType = "除算記号 ‘÷’"
Case 167: strAutoShapeType = "等価性の記号 ‘ =’ です"
Case 168: strAutoShapeType = "非等価記号 ‘≠’ です"
Case 169: strAutoShapeType = "4 つの右の三角形が四角形のパスに沿って整列4 つの ‘スニペット’ 角"
Case 170: strAutoShapeType = "4 小さい正方形、四角形を定義します"
Case 171: strAutoShapeType = "4 四半期の円、四角形を定義します"
Case 172: strAutoShapeType = "六つの歯の装置です"
Case 173: strAutoShapeType = "9 つの歯の装置"
Case 174: strAutoShapeType = "Funnel"
Case 175: strAutoShapeType = "円の図形の四半期です"
Case 176: strAutoShapeType = "円形矢印反時計回りに"
Case 177: strAutoShapeType = "円形矢印時計回りと反時計回りに両方の端点と曲線の矢印です"
Case 178: strAutoShapeType = "曲線の矢印です"
Case 179: strAutoShapeType = "雲の形です"
Case 180: strAutoShapeType = "正方形は対角線に沿って 4 つの部分に分割されます"
Case 181: strAutoShapeType = "垂直および斜めの線に沿って、6 つの部分を四角形に分割されます"
Case 182: strAutoShapeType = "正方形は 4 つの四半期に垂直方向と水平方向に分かれています"
Case 183: strAutoShapeType = "行を反転します"
Case -2: strAutoShapeType = "戻り値のみ他の状態の組み合わせを指定します"
End Select
End Function
PR
Comment