人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセル(VBAプログラム)について質問です。

エクセル上にある画像を全て選択するプログラムを作成できるかた

おりましたらよろしくお願いいたします。

その後の処理として

図の書式設定 → プロパティ → セルにあわせて移動やサイズ変更をする。

の設定をしたいのですがこの一連の流れをプログラムで全て処理出来る方おりましたらよろしくお願いいたします。
(無理な場合はエクセル上にある画像を全て選択する処理だけでかまいません。)

お手数をおかけしますがよろしくお願いいたします。





●質問者: aiomock
●カテゴリ:コンピュータ インターネット
✍キーワード:VBA エクセル サイズ セル プログラム
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● SALINGER
●100ポイント ベストアンサー
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

なんか昔似たようなものを作った記憶があると思ったら。

http://q.hatena.ne.jp/1174664828

◎質問者からの返答

ご回答ありがとうございます。


2 ● banboo
●50ポイント

マクロでの実現は難しくて私にはわかりませんが、普段自分ならどうするか紹介します。

まず、Excel2003での方法

・CTRLキーを押しながらマウスのホイールを下に回して、エクセルシート全体を縮小表示させます。

マウスホイールがなければ、メニューから<表示>?<ズーム>で25%やそれ以下

とにかく絵が小さすぎて見えなくなろうが絵が含まれるシート全部が表示できる倍率を選びます。

・<表示>?<ツールバー>で図形描画がチェックされていると表示されているのですが、

そのツールバーの中に、オブジェクト選択用のマウスカーソルのようなアイコンがあります。

・そのアイコンをクリックすると、マウスカーソルがエクセルのセル上でも矢印のままになりますので

一気に画面の左上から右下まで図面をまるごと囲んで下さい。左上隅にぴたっと図面を配置していると

選択しにくいので私はいつも右下隅の何もデータのない領域から一気に左上の覆うように図を全選択します。

あとは適当に図の上で右クリックすればプロパティで調整できます。

Excel2007はちょっと場所がわかりにくいです。

標準では、<ホーム>?<検索と選択>?<オブジェクトの選択>でマウスカーソルが矢印に変わります。

選択時、セルも反転しますが図形だけのプロパティを変更できます。

また、追加機能として、すぐ下に<オブジェクトの選択と表示>というのがありこれを選ぶと画面右側に

図形の一覧が表示されます。全選択の場合、どれかひとつの図形を選択した後に、CTRL+Aを押すと全部

選べます。SHIFTキーは併用できないので、30の図形から上の10だけマウスでドラッグして囲んで選ぶ

ということができません。それは上記オブジェクトの選択が便利です。

Excel2007のほうもマクロでの実現方法はわかりませんので、第一要望は満たせませんけど。

◎質問者からの返答

ご回答ありがとうございます。


3 ● きゃづみぃ
●60ポイント

最初の一行がすべての図形を選択です。

ActiveSheet.Shapes.SelectAll
With Selection
 .Placement = xlMoveAndSize
 .PrintObject = True
End With
◎質問者からの返答

ご回答ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ