< 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 IV

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

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35