Você pode alterar gráficos vinculados para gráficos incorporados no PowerPoint 2010? Ou use links relativos para arquivos do Excel?

Question

Eu preciso replicar uma apresentação do PowerPoint em vários países, enviar as apresentações aos colegas e dar a eles a capacidade de editar gráficos.

Para fazer isso, criei um arquivo do Excel que contém dados para todos os países e uma folha de dados que usa vlookups para obter os dados de um país por vez. Depois, tenho uma apresentação do PowerPoint que contém aproximadamente 30 gráficos vinculados à folha de dados. Para criar uma apresentação de país, salve uma cópia da apresentação do PowerPoint e do arquivo do Excel - uma cópia para cada país - e altere o país na folha de dados para que a apresentação seja atualizada (após atualizar os links no arquivo usando uma macro).

O problema que tenho é que, se eu apenas enviar o arquivo do PowerPoint para os colegas, eles não poderão editar os gráficos. Se eu também enviar o arquivo do Excel, eles ainda não poderão editar os gráficos sem alterar os links para o local em que eles salvam o arquivo - o que não é uma solução viável.

Eu procurei por uma solução, mas sem sucesso.

Eu ficaria muito grato se alguém pudesse fornecer uma maneira de implementar uma das soluções abaixo usando uma macro - ou, alternativamente, sugerir outra em que eu não tenha pensado:

• Alterar todos os gráficos vinculados na apresentação para gráficos incorporados
• Altere os links absolutos no PowerPoint para links relativos para que, enquanto o O arquivo do Excel é salvo na mesma pasta da apresentação que será ser possível editar os gráficos

Obrigado !!

Simon

    

Answer 1

Esse código pode ajudar. Mas você precisa ter o gráfico colado no PowerPoint como um objeto OLE vinculado.

Option Explicit

Sub HyperLinkSearchReplace()

    Dim oSl As Slide
    Dim oSh As Shape
    Dim sSearchFor As String
    Dim sReplaceWith As String

    sSearchFor = InputBox("What text should I search for?", "Search for ...")
    If sSearchFor = "" Then
        Exit Sub
    End If

    sReplaceWith = InputBox("What text should I replace it with" & vbCrLf _
        & sSearchFor & vbCrLf _
        & "with?", "Replace with ...")
    If sReplaceWith = "" Then
        Exit Sub
    End If

    On Error Resume Next

    For Each oSl In ActivePresentation.Slides

        For Each oSh In oSl.Shapes
            If oSh.Type = msoLinkedOLEObject _
            Or oSh.Type = msoMedia Then
               oSh.LinkFormat.SourceFullName = _
               Replace(oSh.LinkFormat.SourceFullName, _
               sSearchFor, sReplaceWith)
            End If
        Next

    Next    ' slide

End Sub

    

Answer 2

Eu acho que você precisa copiar e colar os gráficos do Excel para o Powerpoint de uma maneira específica. A segunda opção da Etapa 5 no guia da Microsoft diz para colar especial e incluirá o acesso a toda a pasta de trabalho.

link

    

Answer 3

Se você iniciar com os arquivos do Excel e os arquivos PPT no mesmo diretório e, ENTÃO, vinculá-los, dependendo da versão do PPT no recebimento, tudo funcionará bem se os arquivos PPT e XL permanecerem no mesmo diretório juntos, independentemente do diretório que é. Outras versões não funcionam dessa maneira. 2010 parece.

Além desta exceção, os links para XL e outros conteúdos OLE devem ser totalmente direcionados; pathing relativo não funciona.

Essa é uma daquelas situações infelizes em que tanto a vinculação quanto a incorporação têm vantagens e desvantagens, mas você não pode escolher qual de cada uma delas deseja.