Dim Pic As StdPicture
Set Pic = LoadPictureEx(App.Path & "\test2.png")
RichTextBox1.OLEObjectsAddFromPicture Pic

Dim Pic As StdPicture
Set Pic = LoadPictureEx(App.Path & "\test1.png")
RichTextBox1.OLEObjectsAddFromPicture Pic

'get all olepic objptr?
Dim c As Long, i As Long
c = RichTextBox1.OLEObjectsCount
For i = 0 To c - 1
Dim obj As OLEGuids.IOleObject
Debug.Print "ole(" & i + 1 & ") objptr=" & RichTextBox1.OLEObjectsGet(i + 1)
Next

while can't get all ole objptr? some times it' 0,some times ,can't get picture2 OBJPTR