Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Samsung ue55mu6402 optiuni/setari...

Transmitere Index ENEL

Tradiția impodobirii bradulu...
 R.I.P avocatul31

Plutitor cu temporizator

Lacuit la temperaturi scazute

Network Signal Guru
 Cum se monteaza obiectul asta?

Curent AC produs de alternator

GDPR | Algoritm computer vision p...

Elveția ia in considerare in...
 Windows Defender recuperare

Hackintosh Ryzen 5600g fara placa...

Cum izolez acest fir?

rtorrent - scripting
 

VBA Powerpoint 2010 eroarea -2147188160

- - - - -
  • Please log in to reply
1 reply to this topic

#1
Toni_A

Toni_A

    New Member

  • Grup: Members
  • Posts: 5
  • Înscris: 25.04.2011
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
Toni_A

Toni_A

    New Member

  • Grup: Members
  • Posts: 5
  • Înscris: 25.04.2011
Am rezolvat problema, faceam o referire gresita a ferestrei active pentru modul slideshow.

Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate