Pagina 1 din 1

PowerPoint 2010 VBA eroarea -2147188160

Scris: Lun Apr 25, 2011 11:27 am
de Toni A
Am nevoie de afisarea/ascunderea succesiva a 2 grafice suprapuse in powerpoint 2010 in modul slide show.
Codul facut functioneaza cand rulez macroul direct din vba (in vizualizarea normal view graficele sunt afisate si ascunse succesiv) .
Cand atasez macrocomanda la un buton nu lucreaza, da eroarea -2147188160
Am incercat o recomandare de pe pagina microsoft pentru remedierea erorii -2147188160 care propune inserarea codului urmator inainte de apelarea Active Window

Cod: Selectaţi tot

    If PowerPoint.Application.Version >= 9 Then
        PowerPoint.Application.Visible = msoTrue
    End If
Nu functioneaza si am sapat cateva ore sa gasesc explicatia dar fara succes
Are cineva idee ce nu e in regula?
Acesta este codul

Cod: Selectaţi tot

Sub ShowHiddeninSlide()
    ‘On Error GoTo errorcode
    Dim olh As Slide, oSh As Shape
    Dim slnr As Byte, cn3 As String, cn4 As String
    Dim v3 As Boolean, v4 As Boolean
        'slnr = ActiveWindow.View.Slide.SlideIndex
        cn3 = "Inhaltsplatzhalter 3"
        cn4 = "Inhaltsplatzhalter 4"
        Set olh = ActivePresentation.Slides(10)
        olh.Select
        nnn = olh.Name
        ActivePresentation.Slides(10).Shapes.SelectAll
        If olh.Shapes(cn3).Visible = msoTrue Then
        v3 = False
        v4 = True
        Else
        If v3 = False Then
        v3 = True
        v4 = False
        End If
        End If
        olh.Shapes(cn3).Visible = v3
        olh.Shapes(cn4).Visible = v4
End Sub

Re: PowerPoint 2010 VBA eroarea -2147188160

Scris: Mar Apr 26, 2011 9:16 am
de Toni A
Am rezolvat problema, faceam o referire gresita a frestrei active pentru modul slideshow.