< návrat zpět

MS Excel


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

Zaslal/a 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.

Zaslat odpověď >

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

Např.:
Private Sub CommandButton1_Click()
Call UpdateExcelLinks
End Sub
citovat
#039687
avatar
Perfektní, moc děkujucitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Excel s funkci maker

Amor007 • 9.12. 14:22

Vytažení data z webu - VBA

betcup • 9.12. 11:28

Excel s funkci maker

Jiří497 • 8.12. 20:35

Makro Vycenásobné vykopírování dat

misocko • 8.12. 20:20

Excel s funkci maker

Amor007 • 8.12. 7:41

Excel s funkci maker

Jiří497 • 7.12. 21:47

Excel s funkci maker

Amor007 • 7.12. 12:14