Fai la tua domanda
0

SLIDE IN ORDINE CASUALE

chiesto il 2019-01-14 18:09:09 +0100

Immagine gravatar per JJ Henry

Ciao a tutti, come si fa a fare in modo che LibreOffice Impress visualizzi le slide in ordine casuale?

Su un forum di OpenOffice ho trovato questa macro:

Sub SlideShuffle
oDoc = ThisComponent
DPages = oDoc.getDrawPages
Count = DPages.Count
DIM List(Count-1) as Integer
DIM RndList(Count-1) as Integer
DIM TmpList(Count-1) as Integer
For i = 0 to Count-1
   List(i) = i
next i
For x = Count-1 to 0 Step -1
Redim TmpList(x)
RndNum = INT(Rnd*(x+1))
RndList(Count-1-x) = List(RndNum)
If x > 0 then

   If RndNum > 0 then
      For i = 0 to RndNum - 1
         TmpList(i) = List(i)
      next i
   end if
   If RndNum < x then
      For i = RndNum + 1 to x
         TmpList(i-1) = List(i)
      next i
   end if
   Redim List(x-1)
   List() = TmpList()
end if
next x

CustPres = oDoc.getCustomPresentations()
MyCust = CustPres.getByName("FirstCust")
SlideCount = MyCust.Count
If SlideCount > 0 then
For x = 0 to SlideCount -1
   MyCust.removeByIndex(0)
next x
end if
For x = 0 to Count-1
   RndSlide = DPages.getByIndex(RndList(x))
   MyCust.insertByIndex(x, RndSlide)
next x


End Sub

Ma ne capisco poco... mi dice che l'errore sta in questa riga:

MyCust = CustPres.getByName("FirstCust")
modifica retag flag offensive close merge delete

2 Answers

0

risposto il 2019-01-14 23:34:30 +0100

Immagine gravatar per akurery

updated 2019-01-14 23:35:24 +0100

Non sono un esperto di macro, ma direi che la riga che ti dà l'errore va a cercare una Presentazione personalizzata che abbia nome FirstCust.
Perciò, se non vuoi dover modificare la macro la devi creare. Per farlo va in Presentazione -> Presentazione personalizzata -> Nuovo, gli dai nome FirstCust, selezioni sul lato sinistro della finestra tutte le diapositive che ti interessano e con il tasto >> le porti anche sul lato destro e confermi con OK.
Quindi riprova ad eseguire la macro.

modifica flag offensive delete link more
0

risposto il 2019-01-15 06:44:35 +0100

Immagine gravatar per JJ Henry

Grande! Funziona! Non pensavo di dover creare una presentazione personalizzata, ma che bastasse premere F5.

Grazie, risolto!

modifica flag offensive delete link more
Login/Signup to Answer

Question Tools

1 follower

Stats

Chieste: 2019-01-14 18:09:09 +0100

Seen: 32 times

Last updated: Jan 15