4734115639

fi Microsoft Visual Basic for Applications - Prezentacjal - [Modulel (Codę)]

48 £ile £dit View insert Fermat Gebug Run lools Add-lns Window Help

g a»u .    ■ QQ.. a * j»~ j y

Project - VBAProject
^a ■■ 0 *
S VBAProjec1 B-& Modules	^1 1 i I N*
	3 View Codę 3 View Ofeject |3] Toggle Folders VBAProject Properties...
	Insert ►	El yserForm
	Import File.-	0 Module
	£xport File-.	Class Module
	Remove Modulel...
	& Print-
Properties - Modu	[”*"] Dockable	*1
Modulel Module	Hide

| (General)

^ | | updater

Sub updater()

Dim osld As Slide Dim oshp As Shape

For Each osld In ActivePresentation.Slides For Each oshp In osld.Shapes If oshp.Type = msoLinkedOLEObject Then If oshp.OLEFormat.ProgiD Like "Excel*" Then

oshp.LinkFormat.SourceFullName = Replace(oshp.LinkFormat.SourceFullName, "C:\Users\lenovo e540\Desktop\Raport2\Raport.xlsx",

"C:\Users\lenovo e540\Desktop\Raport\Raport.xlsx")

oshp.LinkFormat.Update

End If

End If

Next oshp

Next osld

End Sub