< 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

porovnání dvou hodnot pomoc s funkcí

marta01 • 21.5. 19:37

porovnání dvou hodnot pomoc s funkcí

marta01 • 21.5. 15:10

Převod textu na rovnici

Pepan25 • 21.5. 8:34

Převod textu na rovnici

elninoslov • 21.5. 8:33

Převod textu na rovnici

lubo • 21.5. 8:22

Převod textu na rovnici

elninoslov • 21.5. 7:43

Převod textu na rovnici

Pepan25 • 21.5. 7:06