Excelに統一感をもって画像を貼り付ける方法

質問

いつもお世話になっております。
Excel2003を使用しております。

Excel のシート中に貼り付けてある画像を横や縦の並びを一括
して統一する方法はありますか？

今まで一つ一つ altキー を押しながら線にあわせていたのですが
操作対象が大量にあり過ぎて困っています。

ご存知のかたがいらっしゃいましたらアドバイスのほど宜しく
お願い致します。

回答No.5

kootsuki · ベストアンサー

ｚａｐ３５さんは回答する時間がなくなっちゃいましたかね。おそらくご存知かと思いますが、私から追加回答しておきます。
以下のように一部だけ変えると、図を選択しなくてもシートのすべてのシェイプの位置が微調整されます。

Sub Macro2()
Dim pict
　On Error Resume Next
　For Each pict In ActiveSheet.Shapes
　　pict.Left = pict.TopLeftCell.Left
　　pict.Top = pict.TopLeftCell.Top
　Next pict
End Sub

もしビットマップだけ動かした方がいいのであれば、以下のようにシェイプのタイプを見るようにしてください。※msoPictureかも知れないです。違っていたら変えてみてください。

Sub Macro2()
Dim pict
　On Error Resume Next
　For Each pict In ActiveSheet.Shapes
　　If pict.Type = msoEmbeddedOLEObject Then
　　　　pict.Left = pict.TopLeftCell.Left
　　　　pict.Top = pict.TopLeftCell.Top
　　end if
　Next pict
End Sub

お礼

こんにちは。
ご回答ありがとうございます。

ActiveSheet.Shapes に変えたら選択しなくとも動きました。
ありがとうございます。助かりました。

ビットマップだけ動かしたい場合のほうも試してみます。

回答No.4

zap35

＃０２です。Bitmapなら動くと思います。

＞シート全体を選択
が、シートのセルを選択したということであれば動きません。
先のマクロは画像を選択しないと動かないです。

ご存じとは思いますが「図形描画」ツールバーの「オブジェクトの選択（矢印カーソルのようなアイコン）」をクリックしてドラッグすれば複数の画像を一回の操作で選択できますから、何個でもまとめて処理可能です。

お礼

＞先のマクロは画像を選択しないと動かないです。
そういうことなのですね。

アドバイスありがとうございます。

回答No.3

zap35

＃０２です
画像を複数個まとめて選択して試していただけませんか？

また質問の「画像」とは具体的には何か補足お願いします。

補足

補足ありがとうございます。
＞画像を複数個まとめて選択して試していただけませんか？
シート全体を選択した際にＮＧのようです。
２つのみを選択して試したら動きました。
ありがとうございます。

＞また質問の「画像」とは具体的には何か補足お願いします。
ビットマップです(.bmp)。

回答No.2

zap35

複数選択した各画像の左、上の位置を、その各画像の左上角があるセルの左、上の位置に合わせるマクロです。統一感が出るかどうかは別にしても
＞一つ一つ altキー を押しながら線にあわせていた
手間は軽減できると思います。

以下のマクロをALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はシート画面に戻って、ALT＋F8を押してマクロ一覧からマクロ名を選択して実行します。

Sub Macro2()
Dim pict
　On Error Resume Next
　For Each pict In Selection
　　pict.Left = pict.TopLeftCell.Left
　　pict.Top = pict.TopLeftCell.Top
　Next pict
End Sub

お礼

アドバイスありがとうございます。
実行しましたが何も変化はありませんでした・・・。

回答No.1

maron--5

◆「図形の調整」の「配置/整列」で位置の調整されてはいかがでしょうか？

お礼

アドバイスありがとうございます。
試してみましたが、「配置/整列」の後の選択肢がグレイアウト
されている状態のため選択できないようです。