- ベストアンサー
ExcelVBA：フォーム2のイメージオブジェクト（画像付）をフォーム1のイメージオブジェクト（画像なし）に表示する方法
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Imageコントロールの前に、UserFormオブジェクトを付加する Image1.Picture = UserForm2.Image1.Picture ME.Image1.Picture = UserForm2.Image1.Picture UserForm1.Image1.Picture = UserForm2.Image1.Picture 以上。
その他の回答 (1)
- marbin
- ベストアンサー率27% (636/2290)
フォーム2のImageコントロールにはどのようにして表示させているのでしょう？ 標準モジュールでPublic変数で宣言し、変数を各モジュールで共有、ではだめですか？
お礼
いろいろ試しているときに入力ミスをしていたようです。 単純に、 「フォーム1.イメージ1.Picture = フォーム2.イメージ2.Picture」 と入力するだけでした。 大変失礼しました。 ありがとうございました。
補足
回答ありがとうございます。説明不足で大変申し訳ありません。 フォーム2は、あくまで画像付きのイメージオブジェクトを格納する場所のようなもので、最初から表示していません。 >標準モジュールでPublic変数で宣言し、変数を各モジュールで共有、ではだめですか？ 初心者なもので、この意味がちょっと分からないのですが、説明していただけないでしょうか？ すいませんが、よろしくお願いします。
関連するQ&A
- ExcelVBAのフォーム上のimageコントロールにWeb上にある画
ExcelVBAのフォーム上のimageコントロールにWeb上にある画像を表示したいのですが、VBE上のプロパティで設定するときは表示されるのに、プログラム上で設定するとエラーが出ます。 Image1.Picture = LoadPicture(strURL)で設定しましたが無理でした。 どうやら、LoadPicture関数での設定では駄目なようです。 VBE上では出来るので、何かしら方法があると思うのですが、いかがでしょうか？ よろしくお願いいたします。
- 締切済み
- Visual Basic
- エクセルで貼り付けたオブジェクトの画像をユーザーフォームのイメージコントロールで表示する方法
エクセルで画像をオブジェクトで作り、ユーザーフォームに作ったイメージコントロールに表示する方法はないでしょうか？ 条件によってイメージの画像が切り替わるようにしたいのですが。 別の画像ファイルから読み出すことはあまりしたくありません。あくまでエクセルの中にある画像からフォームのイメージに表示したいのですが。何かいい方法があれば教えてください。 回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでフォームに画像を表示したい
ExcelVBAでフォームに画像を表示したいのですが Private Sub CommandButton1_Click() Image2.Picture = LoadPicture("A3") End Sub セルA3に"C:\デスクトップ\A\A\a-1\A-01.jpg"が入力されています。 ファイルがありません。とエラーがでます。 下記ではうまく表示されます。 Image2.Picture = LoadPicture("C:\デスクトップ\A\A\a-1\A-01.jpg") 何がよくないのでしょうか？ よろしくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- ExcelVBA ユーザーフォームのオブジェクト名
ExcelVBA ユーザーフォームのオブジェクト名について質問です。 Excel2003で、あるユーザーフォームのオブジェクト名を「ユーザーフォーム表示中」とし、 ユーザーフォーム表示中.Showで表示するように記述しました。 何度かテストを済ませ、他のプログラムも含めて完成したと思ったのですが、他のPCでエラー報告があり、コードを確認したところ、なぜか、ユーザーフォーム表示.Show（中の字が消えている）になっていました。 もちろん誰かが記述を変更することは考えられません。 以前、自分のPC内でも同じようなことがあり、いくら原因を探しても見つからず、ユーザーフォームのオブジェクト名を削除された記述に合わせて対処したことがあります。 これは何が原因なのでしょうか。 文字数制限か何かあるのでしょうか。
- ベストアンサー
- オフィス系ソフト
- ExcelVBA：フォームを表示しながらワークシートに入力する方法
ExcelVBAで、フォームを表示した状態で、ワークシートやセルに入力する方法ってあるでしょうか？ 回答よろしくお願いします。
- ベストアンサー
- Visual Basic
- vba フォームに取りこんだ画像をシートにコピー
vba初心者です、宜しければ教えて下さい。 ユーザーフォーム上に画像をドラッグドロップしたら、その画像、ファイル名、パス名がフォーム上に表示されるところまで作成しました。以下のサイトをそのままですが、参考にさせてもらいました。 (参考サイト：https://www.excel-pitin.net/single-post/2017/08/06/画像をドラッグ＆ドロップで表示させる) このImage1オブジェクトに上書きした画像を別シートの指定セルA1に貼り付ける方法を知りたいです。いました。 保存後に画像のパスが変わっても表示が崩れないようにしたいので、Picture.insertではなくShapes.AddPictureを使うというところまで、調べたのですが、そこから先で詰まってしまい、分かりません。(参考https://excel-ubara.com/excelvba5/EXCELVBA226.html ) 最終的には、ユーザーフォーム上のプレビュー画像に ・ボタン操作で、画像を拡大縮小する ・マウスでドラッグして位置を直接微調整する 機能も付けれればなと思っています。 宜しければご教授お願いします。
- 締切済み
- Excel（エクセル）
- ACCESS フォームに画像一覧表表示
Microsoft Access2007 or 2003で質問させていただきます。 フォームに画像一覧を表示する事は可能でしょうか。 テーブルにはファイルのフルパスファイル名が格納されており、フォームの詳細部分にそのレコードの画像ファイルを表示したいと思います。 画面には、画像ファイルが縦に並ぶようなイメージです。 私の知識で作成したところ、全レコード、１レコード目の画像表示になってしまいます。 データ数が多いので、OLEオブジェクトは使用しない方法で、良い方法はないでしょうか。
- ベストアンサー
- その他(データベース)
- フォーム上に画像表示したい
お世話になります。 Access2010 テーブルに「画像」というフィールドがあり、データ型は「添付ファイル」です。 ※それぞれのレコードでファイルは指定済み。 ID 名前 電話番号 画像 1 AAA 090- 📎 2 BBB 090- 📎 3 CCC 090- 📎 フォームにリストボックスがあり、ID、名前、電話番号を表示しているの ですが、例えば、ID1が選択されたときに、それに該当する画像をフォーム上 に表示させたいところです。 どのようにすれば表示させることが可能でしょうか。 VBAで選択されたIDを取得して・・・ってやらなければいけないのか、 表示させるのに「連結オブジェクトフレーム」「非連結オブジェクトフレーム」 「イメージ」のどれを使うことになるのか。。いろいろやり方はあると 思うのですが、その辺がモヤモヤしていてよく分かりません。 ご教示の程、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCEL2007-VBAフォーム上のイメージオブジェクトに図形が設定
EXCEL2007-VBAフォーム上のイメージオブジェクトに図形が設定されているかをチェックするには いつも親切な回答ありがとうございます。 VBAフォーム上のイメージに図形が設定されているかをチェックする方法を教えていただけないでしょうか イメージオブジェクトが５件あり、Shape図形が１，３，５番目に存在した場合 先頭のイメージオブジェクトから詰めて表示したいのですが、方法が分かりません。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access フォームに画像を表示させたい
Win XP Office 2003 Accessを勉強中です。 フォームに画像を添付して、フォームに画像そのものを表示させたいのですが、デザインビュー＞コントロール＞イメージ＞に イメージを挿入しようとしても、ファイル名だけが表示されるだけで、画像そのものを表示させることが出来ません。 これは何故でしょうか。 一体何が原因でこのようになるのでしょうか。
- ベストアンサー
- オフィス系ソフト
お礼
いろいろ試しているときに入力ミスをしていたようです。 単純に、 「フォーム1.イメージ1.Picture = フォーム2.イメージ2.Picture」 と入力するだけでした。 大変失礼しました。 ありがとうございました。