Массив картинок на листе

[alex77755]

Доброго всем вечера.
С помощью класа могу создавать массивы элементов управления и назначать им общую процедуру
Модуль класса C1:

Option Explicit
Public WithEvents PC As Image

Private Sub PC_Click()
 MsgBox PC.Name
End Sub

Модуль:

Option Explicit
Public P() As New C1
Dim S 'As OLEObject

Sub Add_Massiv()
Erase P
t = 1
For Each S In Лист1.OLEObjects
   If TypeName(S.Object) = "Image" Then
         ReDim Preserve P(1 To t)
                Set P(t).PC = S.Object
               t = t + 1
   End If
Next
End Sub

На открытие книги (или просто запустить) Add_Massiv и имаги в массиве.
Но никак не могу загнать в массив пикчуры. Как их объявить в классе?
Отфильтровать можно так:

For Each S In Лист1.Shapes
    If TypeName(S.OLEFormat.Object) = "Picture" Then

а вот не могу правильно объявить тип в классе

[nerv]

As Object и ты не ошибешься )

[alex77755]

Пробовал. Всё равно ошибка
Не соответствие типа.
Имеется в виду в классе:

Public WithEvents PC As Image

[Казанский]

Алекс,
твой код работает, если пикчеры - элементы управления "Рисунок".
А если это картинки типа Вставка - Рисунок, то такой подход не годится - у них нет событий. Однако, каждому такому рисунку можно назначить общий макрос. В макросе определять, по какому рисунку кликнули, с помощью Application.Caller.
Пример: http://www.cyberforum.ru/vba/thread4...ml#post2514533

[alex77755]

Спосибо.
То что нужно