- ベストアンサー
Excel画像置き換え方法
- Excel2000で複数のシートに同じ画像を頻繁に置き換えたい場合の方法を教えてください。
- 新しい画像を古い画像と交換して同じ場所に保存する方法を教えてください。
- Excelの動作で自動的に複数のシートの画像を更新する方法はありますか？
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
Sub test() Dim x As Variant x = Application.GetOpenFilename("gif,*.gif") If VarType(x) = vbBoolean Then Exit Sub With ActiveSheet.Shapes.AddPicture(x, msoTrue, msoFalse, 0, 0, 0, 0) .ScaleHeight 1, msoTrue .ScaleWidth 1, msoTrue End With End Sub 上記のマクロで挿入した画像は元ファイルとのリンクを保持します。 なので１回だけ実行すれば後はマクロ不要です。 #念のため、マクロ実行方法。 [Alt]キー押しながら[F11][i][m]。 アクティブなBookに「標準モジュール」というものが追加されます。 その白背景ウィンドウ（カーソルがある位置）に 上記マクロ Sub test()～End Sub までをコピー＆ペースト直後[F5]キー、で実行です。 画像挿入後、必要であればサイズなどを適宜修正し、 必要なシートにコピーしてください。 元のファイル（例えばa.gif）を同名上書きして更新した後に Bookを開き直せばシート上の画像が更新されます。
その他の回答 (3)
- hayasi456
- ベストアンサー率40% (2402/5878)
添付画像では解らないので こちらに https://picasaweb.google.com/114948545177749066882/MEOSK#slideshow/5672992773250725650 左から元のaaaaa ２２２２ファイルのシート２ ２２２２ファイルのシート１ ｂｂｂｂファイルのシート２ ｂｂｂｂファイルのシート１ シート１・２に各５画像づつ計１０画像 マクロで自動的に挿入しました。
- hayasi456
- ベストアンサー率40% (2402/5878)
入れ替えは出来ませんでしたがマクロで自動で画像の挿入（貼り付け）は出来ました。 地味ですが１回総てのシートに画像の挿入作業を行えば次回は自動処理で行えます。 準備 ・画像のサイズを記録し画像を総て削除し仮に「aaaa」と名前を付け保存します。 ・貼り付ける専用のフォルダーを作ります。 ・専用のフォルダーに挿入する画像をコピーし貼り付けます。 ・詳細表示にして挿入する画像を上から順番に並べます。 ・画像総てを選択し一番上の画像で右クリックし「名前の変更」で仮に[a]とします。 以下の画像は[a（１）][a（２）]と一連番号がつきます。 参考URL http://www.geocities.jp/laut6/excel/excel1.html http://enjoy-pc.info/4/15/000643.html マクロの記録 ・aaaaファイルを開き「新しいマクロの記録」を行います。 ・画像を挿入しサイズを調整をくりかえします。 ・挿入が完了したらマクロの記録を終了しaaaaファイルを上書き保存します。 ・aaaaファイルを開き画像を総て削除し上書き保存します。 マクロの実行 ・専用フォルダーの画像を削除し新たに挿入する画像をコピーし貼り付け ・準備で行ったと同じファイル名[a,a(1),a(2)・・・・・・]に変更します。 ・aaaaファイルを開きマクロを実行します。 （画像が自動的に挿入されます。） ・自動処理が完了したら「名前を付けて保存」で本来のファイル名前で保存します。 マクロの参考URL http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_01.html ユーザー設定でツールバーにコマンドの挿入「図をファイルから挿入」を追加しておくと挿入の作業が楽になります。 http://www.eurus.dti.ne.jp/yoneyama/Excel/mous_jyo/jyo-5.html#toolbar 注意： ・画像の専用フォルダはの保存場所を移動するとエラーが発生します。
- imogasi
- ベストアンサー率27% (4737/17069)
操作だけでやれるかな。無理な気がする。 ーー 下記でやってみた。 Ｓｈｅｅｔ１にＩｍａｇｅコントロールを貼り付ける。（コントロールツールボックスのＩｍａｇｅ） そのコントロールに画像を貼り付ける。（プロパティのＰｉｃｔｕｒｅで指定） 位置や大きさは都合よく決めて、他のシートに於いても、これに習い同じ位置・大きさにするものとする。 標準モジュールに Private Sub test01() Worksheets(1).OLEObjects (1) t = Worksheets(1).OLEObjects(1).Top l = Worksheets(1).OLEObjects(1).Left h = Worksheets(1).OLEObjects(1).Height w = Worksheets(1).OLEObjects(1).Width For i = 2 To 3 Worksheets(i).DrawingObjects.Delete Worksheets(1).OLEObjects(1).Copy Worksheets(i).Paste Set ig = Worksheets(i).OLEObjects(1) ig.Top = t ig.Left = l ig.Height = h ig.Width = w Next i End Sub これ実行する。 ーー Ｓｈｅｅｔ２、Ｓｈｅｅｔ３においてＳｈｅｅｔ１と同じ場所で同じ大きさで、同じ画像が出現するはず。 上記例では２シートに複写しているが、１０シートの場合はFor i = 2 To 10になる。 ＝＝＝ 留意事項 １シートに１ピクチュアーボックス、１画像に限る。他にコントロールがない物とする。 作る対象のシートをシートタブ的に左に１０シートなりを集めておくこと。 一番左のシートを基にする。 －－ この辺はＶＢＡ情報も少なく、経験・勉強不足で、もっと良いやり方があるかもしれない。 エクセルに画像を貼り付けて、何かの仕事で使うようなのは、エクセルに過ぎたニーズだと思うのだが。
