
ご覧いただきありがとうございます。
以前、「ダイアログボックスを開き画像ファイルを選択、1行目が見出し行になっている表のB2から6行ごとに結合したセルに画像を挿入し、隣のC列(6行ごと結合)に画像ファイル名(拡張子なし)が入る表を作る」という件で以下のコードを作成していただいたのですが、
画像がリンク貼り付けになってしまい、メール等で送信すると見れなくなってしまいます。
リンクではなく画像として挿入するためにはどうしたらいいでしょうか?
詳しい方、よろしくお願いいたします。
Sub Sample()
Dim i As Long, fileName As String
Dim rng As Range, sItems
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Image Files"
.Filters.Clear
.Filters.Add "Image Files", "*.GIF; *.JPG; *.BMP; *.PNG; *.TIF", 1
.AllowMultiSelect = True
If .Show = 0 Then Exit Sub
Set sItems = .SelectedItems
End With
For i = 1 To sItems.Count
fileName = Dir(sItems(i))
Set rng = Cells(i * 6 - 4, 2)
rng.Offset(, 1).Value = Left(fileName, InStrRev(fileName, ".") - 1)
Set rng = rng.MergeArea
With ActiveSheet.Pictures.Insert(sItems(i))
.Left = rng.Left
.Top = rng.Top
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Width = rng.Width
.ShapeRange.Height = rng.Height
End With
Next i
End Sub
No.2ベストアンサー
- 回答日時:
No1です。
もともとはこれ(↓)ですよね?
https://oshiete.goo.ne.jp/qa/13930981.html
質問者様がご提示の方法をそのまま踏襲した回答にしてありますので、Pictures.Insertでの挿入方法を取っていました。
>Shapes.AddPictureの場合は画像サイズの指定しなければいけないので。。。
全体でセルサイズに合わせるように指定しているのですから、そのまま指定すれば良いだけです。
With ~~ End With
の内容をまとめて、以下の1文で済ませられます。
ActiveSheet.Shapes.AddPicture sItems(i), False, True, rng.Left, rng.Top, rng.Width, rng.Height
あるいは
>Set rng = rng.MergeArea
のセンテンスも含めてしまって、
With rng.MergeArea
ActiveSheet.Shapes.AddPicture sItems(i), False, True, .Left, .Top, .Width, .Height
End With
でも良いでしょう。
ただし、上記では .Placement の属性設定はしていないので、そちらも必要であるなら追加で設定してください。
No.1
- 回答日時:
こんばんは
ひょっとすると、私が回答したものかもしれませんね。
後からリンク形式を変更する方法は見つからなかったのですが、挿入する際に指定する方法に変えることで可能と思います。
具体的には、Pictures.Insertではなく、Shapes.AddPictureを用いて、第二、第三引数にFalse、Trueを指定しておけばリンクにはならないはずです。
この結果、ファイルに画像が埋め込まれるようになるので、容量は増加すると思います。
https://learn.microsoft.com/ja-jp/office/vba/api …
ご返答ありがとうございます。
容量の増加は全く問題なく、Shapes.AddPictureの使用まではたどり着けたのですが、初心者のためそのあとのコードが全く分かりません。
上手くいかず、エラーになってしまいます。
Shapes.AddPictureの場合は画像サイズの指定しなければいけないので。。。
もう少し粘ってみようと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) VBA 1 2023/04/27 13:37
- Visual Basic(VBA) 【VBA】飛び飛びの3セルに"完了"かもしくは"支援なし"の文字が入っていたら、計算を実行したい 2 2023/09/26 04:21
- Visual Basic(VBA) エクセルVBAについて 1 2024/05/23 01:13
- Visual Basic(VBA) Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです 1 2024/02/19 21:37
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
このQ&Aを見た人はこんなQ&Aも見ています
-
【VBA】 結合セルに複数画像とファイル名一括挿入する方法
Visual Basic(VBA)
-
Visualbasicの現状について教えてください
Visual Basic(VBA)
-
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
VBAのループ処理について教えてください
Visual Basic(VBA)
-
5
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
6
Vba 型が一致しません(エラー13)のセルを特定する方法を教えてください
Visual Basic(VBA)
-
7
VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
8
以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
9
算術演算子「¥」の意味について
Visual Basic(VBA)
-
10
VBA 入力箇所指定方法
Visual Basic(VBA)
-
11
【VBA】値を変更しながら連続でPDFを作成し,それらに印刷設定をした状態で結合するコード
Visual Basic(VBA)
-
12
エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
13
【ExcelVBA】5万行以上のデータ比較の効率的な処理方法について
Visual Basic(VBA)
-
14
【ExcelVBA】dictionaryの重複判断の基準(セル結合だと違う値として認識される)
Visual Basic(VBA)
-
15
VBAでセルの書式を変えずに文字列を置換する方法をご教示ください
Visual Basic(VBA)
-
16
エクセルvbaの対象セルに色をつける 例えば a日付 b種類 c値段 dその他 にんじん 50 ぴー
Visual Basic(VBA)
-
17
アセンブリ言語について。
その他(プログラミング・Web制作)
-
18
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
19
Excel マクロについて詳しい方、ご教示ください。 『行数が毎回変わる元データの、A列に「1」と入
Visual Basic(VBA)
-
20
VBAのエラー表示の対処法について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vba Array関数について教えてく...
-
【マクロ】シートの変数へ入れ...
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
VBAでCOPYを繰り返すと、処理が...
-
エクセルの改行について
-
Excelマクロで使うVBAコードを...
-
ダブルクリックで貼り付けた画...
-
【マクロ】開いているブックの...
-
vb.net(vs2022)のtextboxのデザ...
-
エクセルのVBAコードと数式につ...
-
【マクロ】変数を使った、文字...
-
エクセルのVBAコードについて教...
-
ワードの図形にマクロを登録で...
-
【マクロ】値を渡されたプロシ...
-
【マクロ】モジュール変数の記...
-
Vba FileSystemObject オブジェ...
-
VBAの質問(Msgboxについて)です
-
Excelのマクロについて教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報