
マクロを使って、フォルダ内の画像をエクセルに自動的に貼り付けできるようになりました。
しかし、出来上がったファイルをメールで他の人に送ると、その人のところではエラーがでて画像が見られません。「リンクされたイメージを表示できません」となります。
ネットで調べてみましたが、画像の挿入のPictuers.insertをAddpictureに変えることが載っていたのですが、初心者ゆえよくわかりません。
どなたか教えて頂けませんでしょうか。
仕事で使うため、切羽詰っています。
どうか宜しくお願いいたします。
WINDOWS7
EXCEL2013を使っています。
'一括挿入(画像)
WS01.Select
Cells(9, 2).Select
For i = 2 To LastRow
'偶数の場合、次の処理を行う
If i Mod 2 = 0 Then
FName = WS02.Cells(i, 7)
Set Pict = WS01.Pictures.Insert(FName)
With Pict
.TopLeftCell = ActiveCell
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Height = ActiveCell.Height * 10.8
.Name = i - 1
End With
ActiveCell.Offset(13, 0).Activate
Set Pict = Nothing
End If
Next i
Cells(9, 10).Select
For i = 2 To LastRow
'奇数の場合、次の処理を行う
If i Mod 2 <> 0 Then
FName = WS02.Cells(i, 7)
Set Pict = WS01.Pictures.Insert(FName)
With Pict
.TopLeftCell = ActiveCell
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Height = ActiveCell.Height * 10.8
.Name = i - 1
End With
ActiveCell.Offset(13, 0).Activate
Set Pict = Nothing
End If
Next i
Cells(1, 1).Select
End Sub

No.2ベストアンサー
- 回答日時:
急ぎなら特にマクロ全部を載せて下さい。
WS01やLastRowの定義が不明で苦労します。
前半で修正部分を書きました。後半も同様にしてみて下さい。、」
Dim Pict As Shape
WS01.Select
Cells(9, 2).Select
For i = 2 To LastRow
'偶数の場合、次の処理を行う
If i Mod 2 = 0 Then
fname = WS02.Cells(i, 7)
With ActiveCell
Set Pict = WS01.Shapes.AddPicture(fname, False, True, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height * 10.8)
End With
With Pict
.Name = i - 1
End With
迅速にご回答頂きありがとうございました。
差し換えてみましたところ、思い通りに動作しました。
質問の仕方等、分かりにくく、お手数をお掛けしてしまい申し訳ありませんでした。
全てにおいて初心者ゆえご容赦下さい。
VBAもっと勉強します。
本当にありがとうございました。非常に助かりました。
No.3
- 回答日時:
No.1
- 回答日時:
FName = WS02.Cells(i, 7)
相手はこのセルに記述されているパスの場所に同名の画像ファイルを持っているんですか?
一部のみ貼り付けたのでわかりにくくてすみません。
Excelのシート3枚あります。
データ入力するシート
画像のパスの場所が登録されているシート(WS02)
マクロを実行すると画像が貼り付けられるシート
画像ファイルは、別の画像フォルダの中に入っています。
メールを送った相手は、
マクロを実行すると画像が貼り付けられるシートだけ送っているので
同名の画像ファイルは持っていません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
このQ&Aを見た人はこんなQ&Aも見ています
-
Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて
Excel(エクセル)
-
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
エクセル2010の写真貼り付けについて。
その他(Microsoft Office)
-
-
4
エクセルに添付された画像が×になり見れない
PowerPoint(パワーポイント)
-
5
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
6
Pictures.Insertメソッド⇒Shapes.AddPictureメソッドに変更したいです。
Visual Basic(VBA)
-
7
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
男性の方に質問です。 バックで...
-
彼女が感じやすくて可愛い
-
女性が喘いでいるときの男性の...
-
風俗ってどこまでの接客をします?
-
フェラチオは妻の義務ですか?...
-
高校生です。彼氏の前で初めて...
-
夫婦の夜の営みについてです。 ...
-
男性に質問です! 電話だけで勃...
-
彼氏と毎日セックスするのは異...
-
彼と体の相性が良すぎて悩んで...
-
兄妹や姉弟で、キスやエッチし...
-
ソープランドについて
-
初体験って気持ちいいの? 男の...
-
ふぇらでイカセテくれる うまい...
-
Hの時、彼女が濡れやすいのは嬉...
-
男性に質問です。 デリヘルって...
-
実家住まいの場合Hはホテル以外...
-
キスすれば相手を好きでなくて...
-
彼女がフェラをしてくれません。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
男性の方に質問です。 バックで...
-
彼女が感じやすくて可愛い
-
風俗ってどこまでの接客をします?
-
夫婦の夜の営みについてです。 ...
-
高校生です。彼氏の前で初めて...
-
女性が喘いでいるときの男性の...
-
フェラチオは妻の義務ですか?...
-
初体験って気持ちいいの? 男の...
-
彼氏と毎日セックスするのは異...
-
兄妹や姉弟で、キスやエッチし...
-
男性に質問です! 電話だけで勃...
-
彼と体の相性が良すぎて悩んで...
-
男性に質問です。 デリヘルって...
-
彼女がフェラをしてくれません。
-
実家住まいの場合Hはホテル以外...
-
もし週1しか恋人と会えなかった...
-
キスすれば相手を好きでなくて...
-
ソープランドについて
-
彼氏が前戯をしてくれない
おすすめ情報