マクロ初心者です。
やりたいことはA列にファイル名があればB列にその画像をファイルから読み取り挿入したいです。
1行だけの設定は何とかできたのですが・・
初心者過ぎてなにがおかしいのか全く分かりません。
このコードも検索して拾ってきたものを一部変更しただけのものです。
Sub テスト()
With ActiveSheet.Pictures.Insert("C:\image\" & Range("A1") & ".jpg")
.Left = Range("B1").Left
.Top = Range("B1").Top '
With .ShapeRange
.LockAspectRatio = msoTrue
If .Width * Range("B1").Height / .Height < Range("B1").Width Then
.Height = Range("B1").Height
Else
.Width = Range("B1").Width
End If
End With
End With
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
>1行だけの設定は何とかできたのですが・・
A列の各行に対して同じことを行いたければ、各行でループさせれば良いです。
その際には、現状のコードで、A1、B1等の固定セル指定になっているものを、n行目のA列、B列のセルといった指定に変更しておく必要があります。
(固定セルのままだと、まったく同じことを繰り返してしまいます)
例えば、n行目のA列のセルなら、
Cells(n, 1)
あるいは
Range("A" & n)
といった塩梅です。
その上で、変数nを1~20までなどとループさせれば、1行目から20行目までに対して同様の処理が繰り返されることになります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- その他(Microsoft Office) エクセルのマクロでスライサー教えてください。 1 2022/09/28 16:40
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/03/28 14:52
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
Officeの字体
-
Office2021を別のPCにインスト...
-
Microsoft365で自動保存が出来...
-
Outlookで、任意のメールアドレ...
-
Microsoft 365 の一般法人向け...
-
outlookで宛先が異なるメールを...
-
Excel テーブル内の空白行の削除
-
英数字のみ全角から半角に変換
-
Windows 11で、IME言語バー(IM...
-
マイクロソフト 一時使用コード...
-
EXCELのセルへの色づけ
-
エクセルで例えば、関数を使っ...
-
理由を教えてください。
-
大学のレポート A4で1枚レポー...
-
excel2010の更新プログラムにつ...
-
outlookのメールが固まってしま...
-
Excelで空白以外の値がある列の...
-
VLOOKUP関数について
-
Office 2021 Professional Plus...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報