Excel 画像置き換え？

質問

Excel2000でa.gifをはりつけたシートが１０あるとします。
画像は同じa.gifですが、それぞれ別の文字がかかれています。

a.gifを頻繁に新しい物と更新したいため
a.gifの新しい物を元あった古いa.gifの物と交換して同じ場所に保存します。

１０シート一括で新しいa.gifと交換したいのですが
シフトで１０シート選んでも画像の処理はできませんでした

元のa.gifと同じ場所に起きたいため
貼り付け作業が１０シートあるとかなり面倒です。

a.gifを新しく上書きしただけで
Excelに自動的に画像が更新される方法か
（WEB作成的な）

Excelの動作で複数のシートの画像方法を教えてください

回答No.4

end-u · ベストアンサー

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を開き直せばシート上の画像が更新されます。

回答No.3

hayasi456

添付画像では解らないので
こちらに
https://picasaweb.google.com/114948545177749066882/MEOSK#slideshow/5672992773250725650
左から元のaaaaa
２２２２ファイルのシート２　
２２２２ファイルのシート１
ｂｂｂｂファイルのシート２　
ｂｂｂｂファイルのシート１
シート１・２に各５画像づつ計１０画像　マクロで自動的に挿入しました。

回答No.2

hayasi456

入れ替えは出来ませんでしたがマクロで自動で画像の挿入（貼り付け）は出来ました。
地味ですが１回総てのシートに画像の挿入作業を行えば次回は自動処理で行えます。

準備
・画像のサイズを記録し画像を総て削除し仮に「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

注意：
・画像の専用フォルダはの保存場所を移動するとエラーが発生します。

回答No.1

imogasi

操作だけでやれるかな。無理な気がする。
ーー
下記でやってみた。
Ｓｈｅｅｔ１にＩｍａｇｅコントロールを貼り付ける。（コントロールツールボックスのＩｍａｇｅ）
そのコントロールに画像を貼り付ける。（プロパティのＰｉｃｔｕｒｅで指定）
位置や大きさは都合よく決めて、他のシートに於いても、これに習い同じ位置・大きさにするものとする。
標準モジュールに
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になる。
＝＝＝
留意事項
１シートに１ピクチュアーボックス、１画像に限る。他にコントロールがない物とする。
作る対象のシートをシートタブ的に左に１０シートなりを集めておくこと。
一番左のシートを基にする。
－－
この辺はＶＢＡ情報も少なく、経験・勉強不足で、もっと良いやり方があるかもしれない。
エクセルに画像を貼り付けて、何かの仕事で使うようなのは、エクセルに過ぎたニーズだと思うのだが。