Excel2010にて、 VBA マクロ 画像(図)貼り付けを行いたいと思っています。
しかし、マクロを自動登録すると、ActiveSheet.Pictures.Paste.Selectになり、AddPicture ができません。 下記のマクロをAddPictureへ変換したいのですが、そのまま、InsertをAddpictureに変更してもエラーになってしまいます。 いい方法を教えてください(ToT)/~~~。 どうぞよろしくお願いします。
Sub Test()
'
' Test Macro
'
Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 150#
Range("C4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileC.gif"").Select
ActiveSheet.Pictures.Paste.Select
Range("D4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileD.gif"").Select
Selection.Cut
Range("D4").Select
ActiveSheet.Pictures.Paste.Select
Range("E4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileE.gif"").Select
Range("E4").Select
ActiveSheet.Pictures.Paste.Select
Range("F4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileE.gif"").Select
ActiveSheet.Pictures.Paste.Select
Range("G4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileG.gif"").Select
Selection.Cut
ActiveSheet.Pictures.Paste.Select
Range("H4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileH.gif"").Select
Selection.Cut
ActiveSheet.Pictures.Paste.Select
Range("I3").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileI.gif"").Select
Selection.Cut
ActiveSheet.Pictures.Paste.Select
Range("J4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileJ.gif"").Select
Selection.Cut
ActiveSheet.Pictures.Paste.Select
Range("K3").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileK.gif"").Select
Selection.Cut
ActiveSheet.Pictures.Paste.Select
Range("L3").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileL.gif"").Select
ActiveSheet.Pictures.Paste.Select
Range("M4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileM.gif"").Select
Selection.Cut
ActiveSheet.Pictures.Paste.Select
Range("N4").Select
ActiveSheet.Pictures.Insert( _
"E:\FolderA\fileN.gif").Select
Selection.Cut
ActiveSheet.Pictures.Paste.Select
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ファイル名が fileC.gif~fileN なら
Sub Test()
Dim c As Range
Dim myPath As String
Dim FileName As String
Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 150#
myPath = "E:\FolderA\"
For Each c In Range("C4:N4")
FileName = "file" & Left(c.Address(0, 0), 1) & ".gif"
With ActiveSheet.Shapes.AddPicture( _
FileName:=myPath & FileName, _
LinkToFile:=True, _
SaveWithDocument:=False, _
Left:=0, Top:=0, Width:=0, Height:=0)
.ScaleHeight 1!, True
.ScaleWidth 1!, True
.LockAspectRatio = True
.Locked = False
.Left = c.Left
.Top = c.Top
End With
Next
End Sub
No.1
- 回答日時:
このようにします。
Range("C4").Select
ActiveSheet.Shapes.AddPicture "E:\FolderA\fileC.gif", False, True, Range("C4").Left, Range("C4").Top, 200, 150
ActiveSheet.Pictures.Paste.Select
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Visual Basic(VBA) excelVBAについて。 4 2022/11/21 16:15
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Javascriptで画像を水面のよう...
-
フォームに入力された値により...
-
JavaScriptのhistory.back(戻...
-
C言語のポインタ表現
-
クリックして変更した画像を他...
-
c++std::string型をTCHARに変換...
-
クリックすると小さい画像がキ...
-
javascriptテキストBOX色を元に...
-
MAX関数を使ってからLEFT JOIN...
-
IFRAMEの表示/非表示を切り替え...
-
フッターの下に隙間ができてしまう
-
jQuery多層式アコーディオンメ...
-
背景色と連動するスライドショ...
-
表示・非表示のスクリプトで、...
-
removeEventListenerについて
-
1枚の画像をクリックすると複数...
-
【CSS】floatで左右に並べた...
-
スライドショー「Skitter」をカ...
-
アコーディオンメニューが開い...
-
フッター上部に謎の隙間
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c++std::string型をTCHARに変換...
-
JSPでの画像ファイル表示
-
画面が真っ白になるのはどうして?
-
Javascriptで画像を水面のよう...
-
フォームに入力された値により...
-
クリックして変更した画像を他...
-
日替わりで画像を変更したい
-
C言語のポインタ表現
-
クリックするたびに画像を変える
-
ランダム表示の画像位置
-
教えて下さい。ランダムにバナ...
-
javascriptで複数の画像をラン...
-
1つの画像クリックで切替の方法
-
WSHでクリップボードにイメージ...
-
【初心者】UWSCでjavascriptで...
-
クリックした自身の画像を別画...
-
onとoffを画像でチェンジ、チェ...
-
Excel VBA マクロ 画像(...
-
「戻る」「進む」ボタンで画像...
-
javascriptによる画像切り替え...
おすすめ情報