PowerPoint 2010 VBA eroarea -2147188160
Scris: Lun Apr 25, 2011 11:27 am
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
Nu functioneaza si am sapat cateva ore sa gasesc explicatia dar fara succes
Are cineva idee ce nu e in regula?
Acesta este codul
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
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