• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA PPT oprava kódu Expect End Sub

Zaslal/a hard 27.2.2018 19:23

Dobrý den, mám funkční kód, které bych rád používal na stisk tlačítka v PPT. Nyní funguje jako Module

Sub UpdateExcelLinks()
Dim oShape As Shape
Dim oSlide As Slide

For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
If oShape.Type = msoLinkedOLEObject Then
oShape.LinkFormat.Update
End If
Next oShape
Next oSlide
End Sub

Ale pokud vložím jako CommandButton, vyhodí mi chybu Expect End Sub,

prosím zkušené o kontrolu a opravu, nevím, jak funkci ukončit, aby fungovalo na stisk. Děkuji moc.

Jméno
Kontrola
Text
	Ukázka

---

Pavlus(27.2.2018 19:37)#039685

Makro můžeš nechat v Modulu a pouze si jej přes tlačítko zavolat.
P.

Např.:
Private Sub CommandButton1_Click()
Call UpdateExcelLinks
End Subcitovat

hard(27.2.2018 19:48)#039687

Perfektní, moc děkujucitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse