< 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

Export sloupce do csv

Marekkoc • 16.2. 19:34

Export sloupce do csv

elninoslov • 15.2. 21:31

Export sloupce do csv

mepexg • 15.2. 20:27

Export sloupce do csv

Marekkoc • 15.2. 20:12

Export sloupce do csv

elninoslov • 15.2. 15:10

Export sloupce do csv

MarekKus • 15.2. 14:11

Barvy

martinek.v • 14.2. 22:07