EXCEL VBAでの質問です PC苦手が多いため、後日マクロ知識がなくても対応可能な前提で作成しています。 →矢印等を描画するVBAを検討しております。 シート側

Excel | Visual Basic77閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

一覧表までありがとうございました。 無事に完成しました。

お礼日時:5/22 7:37

その他の回答(1件)

1

msoShapeRightArrowて文字列に見えるけど文字列じゃないんですよ ほんとは「四角は1、平行四辺形なら2」みたいに数で指定するんですがそれだとすんごくわかりづらいんで 「msoShapeRectangleて書いてあったら1ってことにしよう」というのをマイクロソフトで決めてるんですね なので ActiveSheet.Shapes.AddShape msoShapeRightArrow, 100, 100, 100, 100は矢印が書けますが msoShapeRightArrowを文字列扱いして ActiveSheet.Shapes.AddShape "msoShapeRightArrow", 100, 100, 100, 100 とすると型が違うよと怒られます VBA上でmsoShapeRightArrowと書けば勝手に33なのねと解釈してくれますが セルの値を取得した場合は解釈してくれないので ActiveSheet.Shapes.AddShape "msoShapeRightArrow", 100, 100, 100, 100 と同じことになってしまいます >どのようにすれば、いいのか 逆に33であれば数値でも文字列でも「右矢印を指定してんだな」というのは解釈してくれるので、コードはそのままで シートの msoShapeRightArrow を 33 とすることで矢印が書けます const sk as string = msoShapeRightArrow の場合でもskには"33"が入っています F8によるステップ実行で確認してみてください

1人がナイス!しています