• 締切済み

エクセル VBAについて

お世話になります エクセルでのVBAのFoamにて編集画面を作成中ですが 画像の挿入(ダイアログボックス)一つ一つの貼り付けは可能ですが複数の画像の貼り付けができません。 それと貼り付けた画像たとえば4枚あるとすると 一枚一枚決まった枠内に自動に大きさなどを変更して貼り付けをしたいのですがいい方法ないですか?

みんなの回答

  • meron_
  • ベストアンサー率40% (51/127)
回答No.1

もう少し具体的にお願いします。 画像を挿入するのは、シート上ですか? 編集画面とはどのような仕様でしょうか? 決まった枠内とは何ですか? (セル範囲?オブジェクト枠?それともフォームコントロール?) 一応勝手な思いで書きます。 GetOpenFilenameでファイルを選択する場合、MultiSelect:=Trueと することで複数ファイルの選択は可能です。 例: Dim Fname Dim T As Collection Fname = Application.GetOpenFilename _ (FileFilter:="JPEGファイル(*.JPG;*.JPEG;*.JPE),*.JPG;*.JPEG;*.JPE,TIFFファイル(*.TIF),*.TIF,PNGファイル(*.PNG),*.JPG,すべてのファイル(*.*), *.*", _ Title:="画像ファイル選択", MultiSelect:=True) If IsArray(Fname) = False Then If Fname = False Then MsgBox "「キャンセル」されました" End If Else     ’★ココで写真を配置する End If

BSR123
質問者

補足

ありがとうございます 貼り付け先はエクセルのセル内です。 複数選択ができるようになりましたが、貼り付 先もお願いします。 貼り付け後ですが、 セル内に写真を指定して格納していきたいのですが。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセル VBA 日付入力?

    エクセル 2000のVBAにて簡単な 日程表を作成しています。 フォームの テキストボックス1に 10/8 を入力したら テキストボックス2には 10/15 ~ テキストボックス15には 1/21 が自動で 入力されるようにするには、どのようにすればよろしいでしょうか?

  • Excel VBA クリップボードの画像貼り付け

    こんにちは。 Excel VBAで次のようなことをしたいのですが、少し特殊な手順のため皆様のお知恵とお時間をお貸しいただけないでしょうか。 以下の作業をVBAで自動化したいと考えています。 ①クリップボードの画像を貼り付け  画像サイズを1.8cm×1.8cmに変更し、画像右角がセル『T66』に合うよう貼り付け位置を調整する ②これをExcelファイルの全てのワークシートに行う  (ワークシートのファイル名はすべて異なる) 作成したレポートに電子印を押印するのに、かなり時間がかかっているのでVBAで自動化したいと考えている次第です。 『パソコンに保存された画像』ではなく『クリップボードの画像を貼り付け』で自動化できれば、かなり時間短縮できるので上記の手順にてVBAを組んでいただけないでしょうか。 何卒、ご協力をお願い致します。

  • access2003でVBAを使ってEXCELファイルをコピーしたい。

    access、VBA初心者です。 会社でaccess2003を使ってexcelファイルを管理しようと思っています。 自動保存を防止するために非連結フォームで「保存ボタン」を押すことによってテーブルへデータを保存するようにしています。(ここまではできました) テーブルに保存するデータの1つにexcelファイルへのパス(ハイパーリンク)を保存したいのですが、 1.ファイルを参照するダイアログボックスを使って任意のecxelファイルを参照し 2.そのexcelファイルのコピーを作成し 3.オートナンバーのように名前を変更して 4.一定の保存場所へ保存。(保存場所は固定) 5.保存先のパスをテーブルに保存。 という作業を行いたいのですが、 どういった形で作成すればよいのかわかりません。 フォーム上に何を配置し、VBAをどういう構文で書けばいいのかもわかりません。 要は、後々に、誰がいつ作ったエクセルファイルなのかを引き出せるものができればいいので、もっといい方法があれば教えていただきたいです。よろしくお願いします。

  • エクセルVBA 教えてください

    VBA初心者です。 現在エクセルで書類作成のテンプレート原本を作成しています。 その中に 1.携帯電話 2.ポケットベル 3.固定電話 4.その他 というように複数の中から選択する項目があります。リストボックスでとも考えていたのですが、選ばれていない項目も表示しておきたいので、数字にオートシェイプで丸を付けてもらおうと思っています。 そこで質問なのですが、この書式テンプレートを入力する際には入力フォームを呼び出します。そのフォーム内で □1.携帯電話 □2.ポケットベル □3.固定電話 □4.その他 のように複数選択可能なチェックボックス形式の入力欄を作成します。入力フォームの全ての項目が入力され、実行ボタンを押したのち、チェックの入れられた数字の上にのみオートシェイプで丸が入ることは可能でしょうか? 何分VBAの素人なので、何を書いている部分なのか等をわかりやすく教えてくれると幸いです。 よろしくお願いします。

  • エクセルVBA テキストボックス 日付表示

    エクセルVBAにて入力用フォームを開いたときに フォーム内にあるテキストボックスに今日の日付が 自動で表示されるようにしたいのですが どの様に書き込めば宜しいでしょうか? また、2008.09.05 平成20年9月5日などの 日付形式の変更はどの様に書き込むのでしょうか?

  • VBAでエクセルの自動集計ができますか?

    エクセルを利用してアンケートを作成しています。 具体的には、「コントロールツールボックス」の「チェックボックス」や「オプションボタン」などを利用して回答項目を作成し、 回収後に一括して集計・分析したいと考えています。 (回答対象者は100人程度ですので、集計を自動化したいと考えています) そこで質問なのですが、 ・複数のエクセルブックを対象に、上記のような回答の自動集計  を行うためには、VBAで可能でしょうか。  それともVBでないとできないでしょうか。 VBAとVBの違いもよく分かっていないので大変恐縮なのですが・・・ どうぞよろしくお願いします

  • excel VBA フォームを使って

    初歩的な質問だと思いますが、教えていただけますでしょうか。 excelのVBAを使って、ユーザフォームを作ります。 そこにカレンダーコントロールでいわゆる「カレンダー」を作成し、 その下にテキストボックス(ちょっと大きめ)を作ります。 カレンダーをクリックし、テキストボックスにスケジュールが表示されるというものを作りたいです。 現在ワークシートには、scheduleというものだけを作成し、そこには日付とスケジュールを書き込んでいる状況です。 スケジュールは1行のみとは限りません。複数行のほうが多いです。 お忙しいところ申し訳ありませんが、よろしくお願いします。

  • エクセルVBAについて

    エクセルVBA についての質問です。 この問題の答えを教えて頂きたいです。 次の条件を満たすプロシージャを作成してください。 1、ダイアログボックスに最初に市外局番なしの電話番号を入力すると、 先頭に小文字の「a]をつけた電話番号が自動的に、セルB3に入力される。 2、ダイアログボックスでキャンセルを押すと、 電話番号を入力してください、というメッセージボックスが表示される。 3、セルB3の値が「a1234567890」のとき、セルB3が赤の太字になり、 さらにセルC3に「検証用です」と入力される。 この問題の正解となる式を教えてください。 どこが間違っているかがわからず困っております。 よろしくお願いいたします。

  • EXCELでのVBAでダイアログボックスの表示方法

    EXCELで簡単なVBAを作成しています。単純に特定のファイルを読み込み 書式設定を変更して印刷をかけるだけのものなのですが、 この変更したEXCELデータをフォルダやファイル名を使用者側で指定できるよう、ダイアログボックスを使用したいと思っていますが、 VBAの記述方法がわかりません。どうかよろしくご指導お願いします!

  • 共有設定時のエクセルVBAのグローバル変数

    お世話になっております。 エクセルVBAについて質問をいたします。 現在エクセルVBAを使用してソフトを作成しております。 複数の人が操作を行うために、 エクセルの設定の「ツール」→「ブックの共有」→「複数のユーザーによる同時編集と、ブックの結合を許可する」を有効。 という設定を行っております。 この状態で、LAN上にソフトをコピーして同時編集可能にしております。 この時に、VBAで作成したプログラムの中のグローバル変数等の値は、同時編集された時に保護(ロック)されるのでしょうか? それとも、後から書いた人のデータが上書きされてしまうのでしょうか? よろしくお願いします。

専門家に質問してみよう