「PowerPoint で描くクラウディアさん」記事へのコメント

Excelお絵かきなら

[Anonymous Coward]

こっちの方がすごいかも（まあ、オートシェイプ？的には同じことなんでしょうけど）
http://togetter.com/li/445626 [togetter.com]

# 特許図面はどちらかといえばvisioじゃないかなと思った

Re:

[Anonymous Coward]

もしかしてVBAコード化できるのか？

Re:

[masahikoi (1183)]

Excel、というか Office アプリの図形は「ドキュメントのインスタンス.Shapes」というコレクション経由で操作可能です。
例えば Excel なら、

ThisWorkbook.ActiveSheet.Shapes.AddTextbox msoTextOrientationDownward, 100, 100, 100, 100

というコードで「現在のブックのアクティブなシートの座標 100:100 の位置に縦横 １００ ピクセルの縦書きテキストボックスを挿入」という操作になります。AddCurve や AddPloyline で自由に図形を描画できますから、原理的には図形描画出かけるものは何でもコード化可能です。

Re:

[Anonymous Coward]

コード化可能ですよね。
Excelなら「新しいマクロの記録」等で手作業をVBAコードできた筈なんで、
描画作業をひたすら記録して貰い、
＞ ThisWorkbook.ActiveSheet.Shapes.AddTextbox msoTextOrientationDownward, 100, 100, 100, 100
みたいなコード数百行を生成する事もできる筈。

寧ろそっちが欲しいｗ。
自分のエクセルでキャラが出来上がってゆく様を眺めたいｗ

Re:

[Anonymous Coward]

それだと出来上がった絵から、オブジェクトを一個づつ列挙して、それをVBAに落としてテキストとして吐き出させるVBAを作った方が早い。

Re:

[Anonymous Coward]

その発想は無かった。
コレクションの全メンバ対象に処理すりゃ出来るのか。

只、絵師が一から描き上げてく工程を再現できなさそう…。
オブジェクト名の自動命名で振られる連番を手掛りにする位か。

Re:Excelお絵かきなら

[Anonymous Coward]

すまん。昔、そういうお仕事していたもので、そういう発想になった。万人には使えないだろうが、可能であることはわかっている。