codice:
'istanzio l'applicazione
    Set objApplication = New PowerPoint.Application
    objApplication.Visible = True

    'aggiungo una slide
    Set objPresentation = objApplication.Presentations.Add
    Set objSlide = objPresentation.Slides.Add(1, ppLayoutBlank)

    'variabili di appoggio
    Dim ciccio As PowerPoint.Shape  'stampino da quale ricavero gli altri shape 'alla fine lo rendo invisibile
    Set ciccio = objSlide.Shapes.AddPicture(App.Path & "\graficiPowerPoint\apparato.gif", True, True, 10, 10, 71, 57)

'vettore di oggetti
Dim vAppPartenza() As PowerPoint.Shape
Dim i As Integer



'ciclo
do while rsRecordset.EOF = false

  i = i + 1
  ReDim Preserve vAppPartenza(i) As PowerPoint.Shape
  Set vAppPartenza(i) = ciccio.Duplicate  '<--- qui da errore di type mistmacth


'continua
....
..
..
dove tento di assegnare un oggetto shape al nuovo elemento del vettore mi da errore di type Mistmacth
dove sbaglio?