Excel画像置き換え方法
- Excel2000で複数のシートに同じ画像を頻繁に置き換えたい場合の方法を教えてください。
- 新しい画像を古い画像と交換して同じ場所に保存する方法を教えてください。
- Excelの動作で自動的に複数のシートの画像を更新する方法はありますか?
- ベストアンサー
Excel 画像置き換え?
Excel2000でa.gifをはりつけたシートが10あるとします。 画像は同じa.gifですが、それぞれ別の文字がかかれています。 a.gifを頻繁に新しい物と更新したいため a.gifの新しい物を元あった古いa.gifの物と交換して同じ場所に保存します。 10シート一括で新しいa.gifと交換したいのですが シフトで10シート選んでも画像の処理はできませんでした 元のa.gifと同じ場所に起きたいため 貼り付け作業が10シートあるとかなり面倒です。 a.gifを新しく上書きしただけで Excelに自動的に画像が更新される方法か (WEB作成的な) Excelの動作で複数のシートの画像方法を教えてください
- gokumisa
- お礼率13% (12/91)
- オフィス系ソフト
- 回答数4
- ありがとう数0
- みんなの回答 (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 上記のマクロで挿入した画像は元ファイルとのリンクを保持します。 なので1回だけ実行すれば後はマクロ不要です。 #念のため、マクロ実行方法。 [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 2222ファイルのシート2 2222ファイルのシート1 bbbbファイルのシート2 bbbbファイルのシート1 シート1・2に各5画像づつ計10画像 マクロで自動的に挿入しました。
- hayasi456
- ベストアンサー率40% (2402/5878)
入れ替えは出来ませんでしたがマクロで自動で画像の挿入(貼り付け)は出来ました。 地味ですが1回総てのシートに画像の挿入作業を行えば次回は自動処理で行えます。 準備 ・画像のサイズを記録し画像を総て削除し仮に「aaaa」と名前を付け保存します。 ・貼り付ける専用のフォルダーを作ります。 ・専用のフォルダーに挿入する画像をコピーし貼り付けます。 ・詳細表示にして挿入する画像を上から順番に並べます。 ・画像総てを選択し一番上の画像で右クリックし「名前の変更」で仮に[a]とします。 以下の画像は[a(1)][a(2)]と一連番号がつきます。 参考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/17068)
操作だけでやれるかな。無理な気がする。 ーー 下記でやってみた。 Sheet1にImageコントロールを貼り付ける。(コントロールツールボックスのImage) そのコントロールに画像を貼り付ける。(プロパティのPictureで指定) 位置や大きさは都合よく決めて、他のシートに於いても、これに習い同じ位置・大きさにするものとする。 標準モジュールに 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 これ実行する。 ーー Sheet2、Sheet3においてSheet1と同じ場所で同じ大きさで、同じ画像が出現するはず。 上記例では2シートに複写しているが、10シートの場合はFor i = 2 To 10になる。 === 留意事項 1シートに1ピクチュアーボックス、1画像に限る。他にコントロールがない物とする。 作る対象のシートをシートタブ的に左に10シートなりを集めておくこと。 一番左のシートを基にする。 -- この辺はVBA情報も少なく、経験・勉強不足で、もっと良いやり方があるかもしれない。 エクセルに画像を貼り付けて、何かの仕事で使うようなのは、エクセルに過ぎたニーズだと思うのだが。
関連するQ&A
- gif画像をエクセルのシートに貼り付けて動かしたい
gif画像をエクセルのシートに貼り付けて動かしたいのですが可能でしょうか? ぐぐったら http://home.att.ne.jp/zeta/gen/excel/c04p23.htm がヒットしたのですが、 これは複数の画像を表示する方法ですよね? やりたい事はひとつのtest.gifと言うファイルをエクセル上で動かしたいのです。 例えばサンプルとして http://www.civillink.net/sozai/move.html のペンギンををダウンロードしてデスクトップに落としましたが これをエクセル上でブラウザと同じく動的に表示させることは可能でしょうか? ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL,WORDの選択範囲を自動で画像ファイル化したい
EXCELまたはWORDで作成したファイルにて、選択された部分を自動的に画像ファイル(GIFファイルなど)にする方法はないでしょうか? 現在、Excelで作成した内容(テキスト、オートシェイプ、画像の貼り付けあり)を範囲選択し、画像処理ソフト(PaintShopPro)にコピー・貼り付けしてGIFファイルを作成しているのですが、選択する範囲が固定できまっている(例:EXCELだとA1:D20、など)場合、毎回ファイルを開いて範囲選択して上記作業を行うのがファイル数も多く煩雑なので、なんとか自動化できないものかと思っています。 ExcelやWord側でのマクロや、上記要望を満たしてくれるソフトなどがもしあれば、是非教えていただけないでしょうか。 よろしくお願いいたします。
- ベストアンサー
- グラフィックソフト
- スタイルシート 画像の置き換え について
スタイルシート初心者です。 宜しくお願いします。 ----------------------------------------------- <div id="Nav"> <ul> <li><a href="/nav1/"><img src="/nav1.gif"></a></li> <li><a href="/nav2/"><img src="/nav2.gif"></a></li> </ul> </div> ----------------------------------------------- 上記、nav1.gifとnav2.gifの2枚の画像を、スタイルシートで別の2枚へ差し替えたいのですが、何か方法はありますでしょうか。 #Nav li img{ } ではダメですよね。 何か上手い指定方法があるのでしょうか。 HTMLは変更不可です。
- 締切済み
- HTML
- エクセルに画像を外部参照させる方法
エクセル初心者です。 エクセルにjpg画像を貼り付けたのですが、元の画像が上書きされるたびに エクセルの画像も自動更新されるようにすることはできるでしょうか? いわゆる画像の外部参照的な機能があれば教えて欲しいです。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELで作成した表の参照(連動)について
EXCELで、例えばA表を作成します。 それを違う場所(もしくはシート)、Bに貼り付けたい場合、シフト押しながらコピー→貼り付けにすると、A表が図としてBに貼り付けされますよね。 そこで元の、Bシートの書式(列幅など)を保持したまま、A表を貼り付け、そこでもそのA表の数字などを編集したいのですが…可能でしょうか? つまりA表をBに参照させるというか、連動させるというか… ご存知の方いらっしゃいましたらお教えください。 宜しくお願いします。
- 締切済み
- オフィス系ソフト
- Excelに画像を張り付けると文字がにじみます
エクセルで作成した資料、シートA(旧)、シートB(新)の、新旧対応表を作成しています。 その場合、シートAはキレイに張り付けできるのですが、シートBは文字がにじんだりぼやけたり太くなっていて、あまりキレイではありません。 回避策がありましたら教えていただければ幸いです。 ■使用環境 Excel2007、WindowsXP ■手順は以下の通りです (1)シートA、Bをそれぞれ、プリントスクリーンで画面コピー (2)ペイントソフトで画像を張り付け、必要な場所を選択して切り取る (3)エクセルに張り付ける そのまま張り付けようとすると、 ・ビットマップイメージオブジェクト ・図(拡張メタファイル) ・ビットマップ しか選べません。 一度張り付け、それを再度切り取って張り付けようとすると ・図(PNG) ・図(JPEG) ・図(GIF) ・図(拡張メタファイル) ・MicrosoftOffice描画オブジェクト を選ぶことができます。 どの方法を選択して張り付けても、シートBでコピーした画像についてはあまりキレイに張り付けることができません。
- 締切済み
- オフィス系ソフト
- Excelで画像を貼り付けれない。
Excelで画像(jpg)を貼り付けたいと思い、画像をシートの上にドラッグしていくのですが、マウスの下にはコピーを示す「+」マークは出るのですが、貼り付けできません。 ctrl+c→ctrl+vでもできません。 編集→挿入→図→ファイルなどではできますが、数が多いのでできればドラッグかctrlでの操作をしたいです。 どうしちゃったんでしょう? バージョンはMicrosoftExcel2003(11.8120.8122)SP2です。 起動したときに「更新しますか?」みたいのを「更新する」をクリックしてしまったからでしょうか、、、。 どうすればいいでしょうか?? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでこんなことできますか?
こんにちは エクセルのことで質問ですが、例えばエクセルで資料や表などを作成して、A1からF20までのセルをマウスで囲んで、その部分だけをbmpやgifなどの画像データに変換することってできますか? 何をしたいかと言いますと、その部分だけを他のエクセルシートに貼り付けて利用したいのですが、貼り付け先の列の幅や行の高さが違うので、貼り付けてうまく利用できないのです。 バージョンはエクセル2000です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルの画像貼り付け
エクセルシートに画像を貼り付ける際、実際の作業画面で貼り付け位置を合わせても、プレビュー画面で見るとずれてしまいます。 ズレない方法はありますか?
- ベストアンサー
- オフィス系ソフト