[[20080909111819]]　『オートシェイプをマクロで貼付る？』（ppp）　ページの最後に飛ぶ

『オートシェイプをマクロで貼付る？』（ppp）

書類の提出先をオートシェイプで書いたものを、提出先が変わる度に選択して貼付たいのですが…マクロで出来ますでしょうか？提出先はだいたい10箇所ぐらいです。

東京都○○区○○1-2-3
エクセル商事株式会社
代表取締役　山田太郎

といったようなのを、提出先の分だけオートシェイプで先に作っておいて、書類を作成する時に選択出来るようにするのが目的です。

以前、画像を枠を選択して貼付るのを教わったのですが、

Sub 画像貼付()

 On Error GoTo Line01
    fileToOpen = Application _
    .GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.tif;*.bmp")
 If fileToOpen <> False Then
    Selection.ShapeRange.Fill.UserPicture fileToOpen
 End If
 Exit Sub
Line01:
 MsgBox "先に画像を貼り付ける枠を選択して下さい"
 End Sub

イメージ的には画像のところがオートシェイプで出来たらって感じです。

意味不明かもしれませんが、アドバイスをお願いします！

XP／2000

 なかなか回答がつかないですね。。。
 それぞれ表示方法が異なるからオートシェイプを使いたいってことなのかもしれないですが。

 書類の提出先を表示させたいセルに入力規則を設定して、リストで提出先を選ぶ、んではダメですか？
 元の値を入力するときに折り返したい位置でAlt+Enterで改行しておき、表示させたいセルの書式設定で
 折り返して全体を表示する　にチェックを入れておけばそれらしくできるように思うんですけど。。。

 参考～　簡易リストボックス Win
http://www.excel.studio-kazu.jp/lib/e2k/e2k.html
 あとは、名前の定義を使って、オートシェイプの表示を変更するなんて方法なら
[[20060126163708]]『オブジェクトの貼り付け』（村田組）
 ※こちらでみやほりんさんが提示されているマクロもご希望に沿うかも？ 
 (かなれっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20080909111819]] 『オートシェイプをマクロで貼付る？』（ppp） ページの最後に飛ぶ

[[20080909111819]]　『オートシェイプをマクロで貼付る？』（ppp）　ページの最後に飛ぶ