Excel VBA ドラッグ＆ドロップでシートに画像を貼り付ける
選択中のセルの大きさに合わせて画像を貼り付けるマクロです。 ＜完成イメージ＞ セルを選択した後、貼り付ける画像を選択してListViewにドロップすると... 選択中のセルの大きさに合わせて貼り付け。縦横の比が合わない場合はトリム ＜準備＞ UserForm1にListView1を配置します。 ListView1のプロパティーを次のように変えます OLEDropMode: 0 - ccOLEDroptManual ＜ソースコード＞ 'Worksheetモジュールまたは標準モジュールに書くコード Sub Macro1() UserForm1.Show vbModeless End Sub 'UserForm1に書くコード Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Dim myarray() Dim arr
