マクロ初心者です。
やりたいことは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...
-
Microsoft familyに追加されま...
-
【関数】○年○ヶ月と表示された...
-
タブレット Canva
-
マイクロソフト 一時使用コード...
-
office2016のパソコン2台インス...
-
WEBの記事を印刷する際にA...
-
パワーオートメイトデスクトッ...
-
【Excel VBA】PDFを作成して,...
-
大学のレポート A4で1枚レポー...
-
VBA CSV出力について
-
パソコン買い換え Office移行 ...
-
Windows 11で、IME言語バー(IM...
-
エクセルでXLOOKUP関数...
-
Outlookを立ち上げたらGoogleロ...
-
Excelの関数(FILTER関数)につ...
-
Microsoft365の一部を解約したい
-
Microsoft 365 の一般法人向け...
-
Microsoft365で自動保存が出来...
-
Officeの字体
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
Excelで空白以外の値がある列の...
-
会社PCのメールが更新されない
-
Excel 日付を比較したら、同じ...
-
マイクロソフト 一時使用コード...
-
ウィンドウィズ メモ帳で日付だ...
-
MicrosoftOfficeの1ユーザー2...
-
Microsoft Formsの「個人情報や...
-
Officeの字体
-
エクセルでXLOOKUP関数...
-
Microsoft365で自動保存が出来...
-
Outlookで、任意のメールアドレ...
-
outlookのメールが固まってしま...
-
Microsoft 365 の一般法人向け...
-
Office2021を別のPCにインスト...
-
Microsoft 365のディフェンダー...
-
Excelに貼ったリンクについて E...
-
MicrosoftOffice2019なんですが、
-
Outlook で宛先が複数の場合の人数
おすすめ情報