エクセル（VBAプログラム）について質問です。
エクセル上にある画像を全て選択するプログラムを作成できるかた
おりましたらよろしくお願いいたします。
その後の処理として
図の書式設定 → プロパティ → セルにあわせて移動やサイズ変更をする。
の設定をしたいのですがこの一連の流れをプログラムで全て処理出来る方おりましたらよろしくお願いいたします。
（無理な場合はエクセル上にある画像を全て選択する処理だけでかまいません。）
お手数をおかけしますがよろしくお願いいたします。
ベストアンサー
-
SALINGER
満足100pt
Sub picSelect() '画像を選択する Dim ob As Shape Dim st() As Variant Dim i As Integer i = 0 For Each ob In ActiveSheet.Shapes If ob.Type = msoPicture Then ReDim Preserve st(i) st(i) = ob.Name i = i + 1 End If Next ob ActiveSheet.Shapes.Range(st).Select 'セルにあわせて移動やサイズ変更をする。 Selection.Placement = xlMoveAndSize End Sub
なんか昔似たようなものを作った記憶があると思ったら。
-
aiomock
-
aiomockその他の回答
-
banboo
満足50pt
マクロでの実現は難しくて私にはわかりませんが、普段自分ならどうするか紹介します。
まず、Excel2003での方法
・CTRLキーを押しながらマウスのホイールを下に回して、エクセルシート全体を縮小表示させます。
マウスホイールがなければ、メニューから＜表示＞－＜ズーム＞で２５％やそれ以下
とにかく絵が小さすぎて見えなくなろうが絵が含まれるシート全部が表示できる倍率を選びます。
・＜表示＞－＜ツールバー＞で図形描画がチェックされていると表示されているのですが、
そのツールバーの中に、オブジェクト選択用のマウスカーソルのようなアイコンがあります。
・そのアイコンをクリックすると、マウスカーソルがエクセルのセル上でも矢印のままになりますので
一気に画面の左上から右下まで図面をまるごと囲んで下さい。左上隅にぴたっと図面を配置していると
選択しにくいので私はいつも右下隅の何もデータのない領域から一気に左上の覆うように図を全選択します。
あとは適当に図の上で右クリックすればプロパティで調整できます。
Excel2007はちょっと場所がわかりにくいです。
標準では、＜ホーム＞－＜検索と選択＞－＜オブジェクトの選択＞でマウスカーソルが矢印に変わります。
選択時、セルも反転しますが図形だけのプロパティを変更できます。
また、追加機能として、すぐ下に<オブジェクトの選択と表示＞というのがありこれを選ぶと画面右側に
図形の一覧が表示されます。全選択の場合、どれかひとつの図形を選択した後に、CTRL+Aを押すと全部
選べます。SHIFTキーは併用できないので、３０の図形から上の１０だけマウスでドラッグして囲んで選ぶ
ということができません。それは上記オブジェクトの選択が便利です。
Excel2007のほうもマクロでの実現方法はわかりませんので、第一要望は満たせませんけど。
-
aiomock
-
- その他の回答を読む
この質問へのコメント
質問の情報
- 登録日時
- 2008-11-15 18:38:43
- 終了日時
- 2008-11-15 22:18:50
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
QoS設定のマップの意味 ネットワーク機器のQoS設定では、クラスマップやポリシーマップなど、マップ(map)と…
匿名質問者
-
今年の各所の月見メニューで美味しいと思ったものはどれですか？ 私はマクドナルドのパイがよかったと思い…匿名質問者
-
以下の特徴をもつ犬のキャラクターを思い出したいです。ご存知の方、教えていただけませんか？ 白くてマッ…
question1hat
-
誰か読んでくれませんか？ ゲームの話です アンダーテールっていうんですけど 話し相手が全然いないんです…
yun_1024
-
ヤクルトスワローズ 近藤弘樹は現役引退後は、何をしますか？
ren990827