Excluindo fotos dos slides desde a última gravação

Question

Por favor, tenha paciência enquanto eu explico, esperançosamente de forma sucinta, a minha pergunta. Eu tenho um formulário de usuário que, entre outras coisas, permite que o usuário insira uma imagem em um subconjunto de conjuntos no projeto [isto é, os slides 3-29 e 30-54]. Eu quero criar uma sub-rotina "Clear" que irá, entre outras coisas, remover quaisquer imagens inseridas dos slides subseqüentes ao último SAVE. Meu pensamento é com cada procedimento de imagem "insert", uma variável pública de 2 dimensões é criada contendo o número do slide e o par shape.ID. A rotina clara irá simplesmente olhar através destas variáveis, ir para cada slide e apagar a imagem. (A cada SALVAR, essas variáveis são apagadas.

A minha lógica soa? Eu deveria estar indo por um caminho diferente? Como nunca trabalhei com variáveis multidimensionais, como especifico ou leio os valores de cada par de variáveis para analisá-los?

    

Answer 1

À medida que você adiciona cada imagem, obtenha uma referência a sua forma e adicione uma tag a ela, algo como (supondo uma referência à nova imagem em oSh):

oSh.Tags.Add "Adicionado", dTime 'onde dTime é uma variável definida para a data de salvamento anterior 'Você pode fazer ActivePresentation.Tags.Add "LastSave", seja o que for para gravar isso

Para remover as formas conforme desejado, percorra cada forma em cada slide e observe

oSh.Tags ("Added") para retornar o valor do dTime com o qual você marcou quando a apresentação foi adicionada. Quando você multar um que corresponda aos seus critérios, exclua-o.

Não deixe de retroceder nas formas em cada slide, senão você obterá resultados estranhos.

Antes que isso funcione, você precisará descobrir como gravar a última data de salvamento (e hora?). Você tem isso funcionado?