Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. www.neurohope.ro |
VBA Powerpoint 2010 eroarea -2147188160
Last Updated: Apr 26 2011 09:10, Started by
Toni_A
, Apr 25 2011 13:33
·
0
#1
Posted 25 April 2011 - 13:33
Am nevoie de afisarea/ascunderea succesiva u a 2 grafice suprapuse in powerpoint2010 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 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? Iata codul: 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 |
#2
Posted 26 April 2011 - 09:10
Am rezolvat problema, faceam o referire gresita a ferestrei active pentru modul slideshow.
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users