..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

PwerPoint in search bar

Preostalo o MS Pisarni

PwerPoint in search bar

OdgovorNapisal/-a pero978 » To jun 05, 2012 2:17 pm

Pozdravljeni,

Na prvi strani PP predstavitve bi rad imel nekakšen serch bar, preko katere bi v predstavitvi poiskal določeno kodo izdelka..se pravi vpišem 00123 in me vrže na slide kjer je ta koda.

S pomočjo googla sem spackal tole (kodo sem dodelil kontrolniku Polje s besedilom), vendar vse kar vpišem napiše, da ne najde nič. Prosim za pomoč, bi mi olajšalo in skrajšalo delo, hvala. Lp

Dim osld As Slide
Dim oshp As Shape
Dim b_found As Boolean
If KeyCode = 13 Then 'ENTER PRESSED
If Me.TextBox1.Text <> "" Then
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then
If InStr(UCase(oshp.TextFrame.TextRange), UCase(Me.TextBox1.Text)) > 0 Then
SlideShowWindows(1).View.GotoSlide (osld.SlideIndex)
Me.TextBox1.Text = ""
b_found = True
Exit For
End If
End If
End If
Next oshp
if b_found=True Then Exit For
Next osld
End If
If b_found = False Then MsgBox "Not found"
End If
pero978
 
Prispevkov: 148
Pridružen: Pe feb 24, 2012 10:18 am



Matjazev.NET
 

Re: PwerPoint in search bar

OdgovorNapisal/-a admin » To jun 05, 2012 2:28 pm

S samo kodo ni popolnoma nič narobe... Vezati pa jo seveda morate na KeyDown dogodek vašega vnosnega polja in potem deluje natanko tako kot pričakujete - po vseh diapozitivih išče vneseno besedilo in če ga najde prikaže diapozitiv na katerem ga je našel, sicer izpiše 'Not found'
Koda: Izberi vse
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim osld As Slide
  Dim oshp As Shape
  Dim b_found As Boolean
 
  If KeyCode = 13 Then 'ENTER PRESSED
    If Me.TextBox1.Text <> "" Then
      For Each osld In ActivePresentation.Slides
        For Each oshp In osld.Shapes
          If oshp.HasTextFrame Then
            If oshp.TextFrame.HasText Then
              If InStr(UCase(oshp.TextFrame.TextRange), UCase(Me.TextBox1.Text)) > 0 Then
                SlideShowWindows(1).View.GotoSlide (osld.SlideIndex)
                Me.TextBox1.Text = ""
                b_found = True
                Exit For
              End If
            End If
          End If
        Next oshp
        If b_found = True Then Exit For
      Next osld
    End If
    If b_found = False Then MsgBox "Not found"
  End If
End Sub

lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3524
Pridružen: Sr jul 20, 2005 10:06 pm

Re: PwerPoint in search bar

OdgovorNapisal/-a pero978 » To jun 05, 2012 2:39 pm

Dlžan gajbo..česarkoli :) res hvala.

Lp,
pero978
 
Prispevkov: 148
Pridružen: Pe feb 24, 2012 10:18 am


Vrni se na Ostalo

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron