エクセル 写真をオートフィルしたい！

質問

よろしくお願いします。　Excel2003を使用しています。
シートに表を作成し、写真はＣ列の各行、Ｄ列の一部の行に図で貼り付けてあります。
これをオートフィル機能を使って表のデータを活用したいのですが、困ったことにＣ列、Ｄ列はオートフィルで選択した以外の写真も表示されてしまいます。
これを回避して必要な写真だけが表示されるようにできないでしょうか？
ワードで段落に固定できるように、エクセルでセルに固定できれば可能でしょうか？
どなたかご存知の方、ご教授お願いします。

回答No.1

pauNed · ベストアンサー

こんにちは。
『オートフィルタ』機能ですね。

写真はセル１つに１枚...で配置されているのですね？
一応、[図の書式設定]-[プロパティ]タブで、「○セルに合わせて移動やサイズ変更をする」
にチェックするとできるかもしれません。

ただ、この場合、該当セルの列幅行高を変更するとサイズが変わるわけですから、
オートフィルタで抽出する以外の時に困るかもしれません。

もしマクロ使用に抵抗がなければ

Sub サイズ変動()
　　ActiveSheet.Pictures.Placement = xlMoveAndSize
End Sub

Sub サイズ固定()
　　ActiveSheet.Pictures.Placement = xlMove
End Sub

この簡単なマクロで、アクティブなシートの写真のプロパティを切り替える事はできます。
気をつけないといけないのは、
オートフィルタで非抽出状態の時に Sub サイズ固定() をしてしまうと、
次に全表示させた時に、写真が消えたように見えます。

念のため、復帰用のマクロも載せておきます。

Sub 左上セル範囲に合わせて位置とサイズ変更()
　　Dim Pic As Picture

　　For Each Pic In ActiveSheet.Pictures
　　　　With Pic.TopLeftCell.MergeArea
　　　　　　Pic.Left = .Left
　　　　　　Pic.Top = .Top
　　　　　　Pic.Width = .Width
　　　　　　Pic.Height = .Height
　　　　End With
　　Next Pic
End Sub

（xl2000で確認。xl2003では試せてません。）

マクロの登録については...
1)[Alt]キー+[F11]キー同時押し。VisualBasicEditor（VBE）が起動します。
2)そのVBE画面で[Alt]キー → [i]キー → [m]キー の順押し。
　標準モジュールが挿入され、マウスカーソルが無地シートのようなものにフォーカスします。
3)そこに各コードをコピーペーストします。
実行する時は、Excel側[ツール]-[マクロ]-[マクロ]で実行できます）
参考サイト
http://www.sanynet.ne.jp/~awa/excelvba/kouza.html

お礼

回答ありがとうございます。
”図の書式設定”で解決しました。
マクロでの方法も参考にさせて頂きます。
助かりました。