在VBA（Visual Basic for Applications）中实现图片的拖动功能，通常涉及到使用Windows API或者VBA本身提供的图形对象。以下是一个简单的示例，展示如何在Excel VBA中实现图片的拖动功能：
1. 打开Excel，按下`Alt + F11`键打开VBA编辑器。
2. 在VBA编辑器中，插入一个新模块（右击工作表名称 -> 插入 -> 模块）。
3. 在新模块中，编写以下代码：
```vba
Option Explicit
Private Declare PtrSafe Function SetCapture Lib "user32" （ByVal hwnd As Long） As Long
Private Declare PtrSafe Function ReleaseCapture Lib "user32" （） As Long
Private Declare PtrSafe Function GetCursorPos Lib "user32" （lpPoint As POINT） As Long
Private Declare PtrSafe Function SetCursorPos Lib "user32" （ByVal x As Long, ByVal y As Long） As Long
Private Declare PtrSafe Function LoadPicture Lib "gdi32" （ByVal lpszPicName As String） As Long
Private Declare PtrSafe Function DeleteObject Lib "gdi32" （ByVal hObj As Long） As Long
Private pic As Object
Private Sub Workbook_Open（）
Dim picPath As String
picPath = ThisWorkbook.Path & "\your_image.jpg" ' 替换为你的图片路径
Set pic = LoadPicture（picPath）
With ActiveSheet.Shapes.AddPicture（pic, 100, 100, 200, 200） ' 100,100是图片的左上角坐标，200,200是图片的宽度和高度
.OnAction = "MovePicture" ' 绑定拖动事件
End With
End Sub
Private Sub MovePicture（）
Dim pt As POINT
GetCursorPos pt
With ActiveSheet.Shapes（1） ' 假设图片是工作表上的第一个形状
.Left = pt.x
.Top = pt.y
End With
End Sub
```
4. 保存并关闭VBA编辑器。
5. 按下`F5`键运行宏，或者关闭并重新打开Excel以激活宏。
在这个示例中，我们首先在`Workbook_Open`事件中加载图片，并将其添加到工作表中。然后，我们将图片的形状与`MovePicture`子程序绑定，该子程序会在图片被拖动时更新其位置。
请注意，这个示例是针对Excel的，如果你需要在其他应用程序（如PowerPoint）中实现类似的功能，你需要使用相应应用程序的VBA API或者控件。