

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