Mam utworzoną prezentację PowerPoint, w której osadzone są wykresy z Excel. (wszystkie pobierane są z jednego pliku)
Szukam sposobu na szybką podmianę na inny plik (z tej samej lokalizacji, ale inna nazwa pliku).
W jaki sposób mogę tego dokonać? (problemem jest ich duża liczba i przeklikiwanie raczej nie wchodzi w rachubę)
0
2
Można użyć makra.
Coś w tym stylu:
Sub ChangeChartsSource()
Dim newFilePath As String
Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape
newFilePath = InputBox("Podaj ścieżkę pliku z danymi", "Wybierz plik")
If newFilePath = "" Then
Exit Sub
End If
Set pptPresentation = ActivePresentation
For Each pptSlide In pptPresentation.Slides
For Each pptShape In pptSlide.Shapes
If pptShape.Type = msoChart Then
pptShape.LinkFormat.SourceFullName = newFilePath
pptShape.LinkFormat.Update
End If
Next
Next
End Sub
0
Nie zadziałało. Pojawia się idiotyczny komunikat:
A potem nie da się ani zaznaczyć danych, ani odświeżyć...
0
Jednak zadziałało. Coś z kompem było nie halo...
Dzięki.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.