![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
工事写真をエクセルに大量に貼り付けています。
一枚一枚貼っているととても時間がかかるので、選択した写真を一度に貼り付けられるマクロを探しています。
エクセルが分からないためサイトからコードを拝借して使っているのですが、うまくいかなくて困っています。
①リンク貼り付けになってしまう
Shapes.AddPictuerメソッドを使わないといけないらしいのですが、直し方が分かりません。
②結合セルにぴったり合わない
右側だけがはみ出したり、足りなかったりします。
エクセル2013を使っています。
普通セル→結合セル→普通セルと縦に並んでいて、
結合セルに写真がぴったりと張り付くようにしたいです。
以下使っているコード
Sub Test()
Dim fName,pict As Picture
fName=Application.GetOpenFilename("JPG,*.jpg",MultiSelect:=True)
If IsArray(fName)Then
For I=1 To UBound(fName)
Set pict=ActiveSheet.Pictures.Insert(fName(i))
pict.TopLeftCell=ActiveCell
pict.Width=ActiveCell.Width
pict.Height=ActiveCell.Height
ActiveCell.Offset(2,0).Activate
Next I
End If
End Sub
本当は自分で勉強するべきだとは思いますが、提出期限が近く焦っているので質問しました。
よろしくお願いします。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?8acaa2e)
No.2ベストアンサー
- 回答日時:
結合されたセルの大きさぴったりに、リンクでなく写真入れるサンプルです。
Sub Test()
Dim fName As Variant
Dim pict As Shape
fName = Application.GetOpenFilename("JPG,*.jpg", MultiSelect:=True)
If IsArray(fName) Then
For i = 1 To UBound(fName)
With ActiveCell
Set pict = ActiveSheet.Shapes.AddPicture(Filename:=fName(i), LinkToFile:=False, SaveWithDocument:=True, _
Left:=.Left, Top:=.Top, Width:=.MergeArea.Width, Height:=.MergeArea.Height)
End With
ActiveCell.Offset(2, 0).Activate
Next i
End If
End Sub
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?8acaa2e)
No.3
- 回答日時:
補足コメントより
いくつのセルを結合しているかによります。
データがこわれるわけではないので、ご自分でやってみる事をお勧めします。
そうしないとスキルアップになりませんので。
No.1
- 回答日時:
こんな感じで、できそうですが・・・あまり自信がないので、ご参考程度に。
Sub Test()
Dim fName, pict As Picture
Dim i
fName = Application.GetOpenFilename("JPG,*.jpg", MultiSelect:=True)
If IsArray(fName) Then
For i = 1 To UBound(fName)
Set pict = ActiveSheet.Pictures.Insert(fName(i))
pict.ShapeRange.LockAspectRatio = msoFalse
pict.ShapeRange.Width = ActiveCell.Width
pict.ShapeRange.Height = ActiveCell.Height
ActiveCell.Offset(2, 0).Activate
Next i
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
【EXCEL VBA】ダブルクリックでセルのサイズに合わせて画像を挿入に機能を追加したいです。
Visual Basic(VBA)
-
エクセルのVBAを使用し、工事写真台帳を作成しています。
Excel(エクセル)
-
-
4
Excel 画像貼り付けのVBAについて
Excel(エクセル)
-
5
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
6
VBAで「エクセルに写真を貼り付け、外のセルに撮影月日を『和暦』で自動記載」させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル: セルの枠を超えて表示
-
Excel countif関数で取り消し線...
-
Excelで表を作ったところに文字...
-
セル内の一部の文字だけをハイ...
-
エクセルのセル内の語句がはみ...
-
マウスポインターが白十字のまま
-
エクセルの白黒の反転で困って...
-
エクセルで1つのセルにスクロ...
-
エクセルで画像を透過させて画...
-
エクセルのふりがなの位置
-
セルは大きくさせず、中の文字...
-
Wordでトーナメント表を作りたい
-
Excel入力で勝手にエンター押さ...
-
エクセルで特定の列のセルだけ...
-
エクセルの行の下げ方
-
エクセルの数式で教えてください。
-
セルを結合しても、文字をセル...
-
■エクセルで縦の線を入れるには...
-
文書を作るのに会社の人は皆Exc...
-
Excelで結合したセルを元に戻す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル: セルの枠を超えて表示
-
セル内の一部の文字だけをハイ...
-
Excel countif関数で取り消し線...
-
エクセルで1つのセルにスクロ...
-
セルは大きくさせず、中の文字...
-
エクセルファイルに _x000D_ と...
-
Excelでcsvやtxtで保存する時に...
-
Excel入力で勝手にエンター押さ...
-
マウスポインターが白十字のまま
-
エクセルで画像を透過させて画...
-
エクセルの白黒の反転で困って...
-
エクセル2013で英単語を折り返...
-
セルを結合しても、文字をセル...
-
エクセルで右隣のセルより優先...
-
エクセルの入力規則プルダウン...
-
全セルの末尾に改行(Alt+Enter...
-
VBA:結合されたセルに対する「...
-
エクセルのセル外改行は可能で...
-
エクセルでセルを上下に結合し...
-
Excelで表を作ったところに文字...
おすすめ情報
今日試してみたところ、うまくいきました!
すごくさくさく仕事が進みます!
本当にありがとうございました(^^)
ちなみになんですが、教えていただいたコードを少し変えて、
1つ目の結合セルの次に4つ目の結合セルに写真を張り付けるようなコードにも出来るでしょうか。
Offset(2,0)のところをOffset(6,0)にすれば
いいのでしょうか。
もし宜しければ教えてください。