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ランキング
-
C言語のポインタ表現
-
画像をクリックすると音が鳴り...
-
JSPでの画像ファイル表示
-
クリックした自身の画像を別画...
-
WSHでクリップボードにイメージ...
-
MAX関数を使ってからLEFT JOIN...
-
読み込んだQRコードをフォーム...
-
1枚の画像をクリックして複数の...
-
jspでcssが読み込めない
-
Javascriptで指定した日付と時...
-
removeEventListenerについて
-
textareaに画像を表示したい
-
Javascript で共通の処理をどこ...
-
【jQuery】遅延実行(タイムラ...
-
JavaScriptで変更した属性の元...
-
htmlの記述で link rel=styles...
-
web制作(HP作成について教えて...
-
[急ぎ] videoタグで埋め込んだm...
-
HTMLとJavaScriptで作ったタイ...
-
Slick.jsのオプションrtlについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c++std::string型をTCHARに変換...
-
JSPでの画像ファイル表示
-
フォームに入力された値により...
-
画面が真っ白になるのはどうして?
-
クリックして変更した画像を他...
-
マウスオーバーで画像変更
-
Excel VBA マクロ 画像(...
-
画像をクリックしたら別ウイン...
-
javascriptによる画像切り替え...
-
onMouseで、画像を変更する方法で…
-
クリックした自身の画像を別画...
-
ランダムに画像を表示し、ポッ...
-
画像をクリックすると音が鳴り...
-
javascriptの sx, sy, sw, sh, ...
-
画像の振り分け
-
一定時間で画像を変更するスク...
-
画像をクリックして入れ替えたい
-
ランダムに流れるMIDIを止める
-
WSHでクリップボードにイメージ...
-
onmouseover、onmouseoutの仲間...
おすすめ情報