Macro

[RodM 0]

O problema é o seguinte...

 

eu tenho q fazer URGENTE aqui no trampo uma macro q atualiza os vínculos pra um ppt.

Até aí tdo bem, fiz, mas tem q atualizar de tempos em tempos!

 

Eu fiz um loop infinito q dava um Sleep e atualizava... mas aí trava tudo né, a apresentação n roda... acredito q pra fazer isso eu devia inicializar uma thread (mas nem idéia de como)

 

Pra piorar eu nunca tinha feito uma macro na vida...

 

o código porco e errado:

Sub updater()	With ActivePresentation.Slides.Range.SlideShowTransition		 .AdvanceTime = 5	End With	ActivePresentation.SlideShowSettings.Run		While (True)		 ActivePresentation.UpdateLinks		 Sleep 2000	WendEnd Sub

É URGENTE ajudem por favor!

[Fernando Almeida 0]

O problema é o seguinte...

 

eu tenho q fazer URGENTE aqui no trampo uma macro q atualiza os vínculos pra um ppt.

Até aí tdo bem, fiz, mas tem q atualizar de tempos em tempos!

 

Eu fiz um loop infinito q dava um Sleep e atualizava... mas aí trava tudo né, a apresentação n roda... acredito q pra fazer isso eu devia inicializar uma thread (mas nem idéia de como)

 

Pra piorar eu nunca tinha feito uma macro na vida...

 

o código porco e errado:

Sub updater()	With ActivePresentation.Slides.Range.SlideShowTransition		 .AdvanceTime = 5	End With	ActivePresentation.SlideShowSettings.Run		While (True)		 ActivePresentation.UpdateLinks		 Sleep 2000	WendEnd Sub

É URGENTE ajudem por favor!

bom no vb existe o componente chamado timer, acredito que você poderia utiliza-lo, dai o codigo seria +/- assim

 

private sub timer1_timer()		 ActivePresentation.UpdateLinksend subSub updater()	With ActivePresentation.Slides.Range.SlideShowTransition		 .AdvanceTime = 5	End With	ActivePresentation.SlideShowSettings.Run			timer1.Interval = 200		call timer1_timerEnd Sub

acredito que isso possa fazer o que você pretende.

[RodM 0]

Cara valeu pela ajuda mas n deu certo não... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif