Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : 指定なし)
シートにある一覧表を別シートにオートシェイプの中にテキストを挿入したい。
投稿日時: 20/09/19 15:41:09
投稿者: bunjisan

タイムラインのようなフォーマットを用いて1日の作業に必要な人数を算出することが最終目的です。
まず
シートにある情報を別シートにオートシェイプ(四角形)を作成し、テキストを挿入に記入したい。
シートにある情報=時間、枚数、行先
 
シートにある情報
A  B  C
5時 3枚 東京
3時 7枚 山梨
 
この情報をオートシェイプの中に一括して転記したいです。
現状ひとつひとつ駒を作成しています。
 
次に
タイムライン上に合わせて、上記の駒を配置したいです。
2時   3時   4時   5時
セルを10分で区切っています。
そこにあわせて上記の駒を配置出来ますか?
今までこの作業に相当時間をかけてきたので、効率的に出来る方法があり
もしご教授頂ければ幸いです。[/quote]

回答
投稿日時: 20/09/19 21:55:32
投稿者: simple

こちらの掲示板は、リクエストしてコードをもらう場所ではありませんので(ご承知とは思います)、
現在の質問者さんの取組と、具体的にどこで詰まっているかを教えて下さい。
 
されたいことをいくつかに分解して、それぞれをステップを踏んで考えていったらどうですか?

(1)別シートに図形を挿入する。(場所は問いません。)
(2)その図形に文字を挿入する。(文字は仮のもので結構です。)
(3)上記の(1)について、挿入先の場所を、シートのセルと関連づけて決定する
(4)上記の(2)について、セルの文字列を使って書き込む
(5)全体を統合して、繰り返し処理を使ってまとめあげる。
こんなステップでしょうか。
 
まず、(1)(2)については、マクロ記録をとるとコードが得られます。
それをヘルプ等で確認して、内容を把握します。メソッドの引数の意味など。
 
とりあえず、現状を教えていただきたいのと、(2)まで実行してもらえませんか?
(いや失礼な、そんな状態はとっくに終わっていて、現状こういうコードが出来ている、
  ということでしたら、それを示してください。)

投稿日時: 20/09/19 22:43:19
投稿者: bunjisan

simple様
 
ありがとうございます。
安易に質問してしまい失礼しました。
 
出来ているのは、図形を貼り付けるVBAのみです。
こちらのサイトのQ&Aを参考に出来た状態です。
 
下記内容(頂いたアドバイス)をマクロの記録で試してみます。
(1)別シートに図形を挿入する。(場所は問いません。)
(2)その図形に文字を挿入する。(文字は仮のもので結構です。)
(3)上記の(1)について、挿入先の場所を、シートのセルと関連づけて決定する
(4)上記の(2)について、セルの文字列を使って書き込む
(5)全体を統合して、繰り返し処理を使ってまとめあげる。
 
その上で改めて質問致します。
ありがとうございました!