Sub Test()
    Dim ExistOLEObj As OLEObject
    With ThisWorkbook.ActiveSheet
        For Each ExistOLEObj In .OLEObjects
            Debug.Print ExistOLEObj.Name
        Next
    End With
End Sub

Sub Proba()
    Dim I As Integer, EistOLEObj As OLEObject
    I = 1
    'Определяем количество имеющихся на активном листе объектов ActiveX
    With ThisWorkbook.ActiveSheet
        For Each EistOLEObj In .OLEObjects
            I = I + 1
        Next
        'Добавляем на лист дополнительный объект ActiveX Image
        .OLEObjects.Add ClassType:="Forms.Image.1", _
                        DisplayAsIcon:=False, _
                        Left:=0, _
                        Top:=0, _
                        Width:=175, _
                        Height:=320
        'Переопределяем имя добавленного объекта для последующего удобства обращения к нему
        .OLEObjects(I).Name = "TempImage"
        'Устанавливаем свойства объекту, чтобы он был невиден пользвателю
        With .OLEObjects("TempImage")
            .Object.BackStyle = fmBackStyleTransparent
            .Object.BorderStyle = fmBorderStyleNone
        End With
    End With
End Sub

Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As LongPtr
Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As LongPtr) As LongPtr

Sub proba()
Dim hCursor As LongPtr

hCursor = LoadCursorFromFile("C:\WINDOWS\Cursors\aero_link_il.cur")
If hCursor = 0 Then End
SetCursor hCursor
End Sub 

Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As LongPtr) As Long

Sub proba()
Dim hCursor As Long

hCursor = LoadCursorFromFile("C:\WINDOWS\Cursors\aero_link_il.cur")
If hCursor = 0 Then End
SetCursor hCursor
End Sub