vba Excluir imagens sem remover o objeto de imagem com VBA

[mcthheus]

Boa tarde pessoal,

Matheus aqui, iniciante em programação VBA.

Tenho uma planilha que já venho fazendo melhorias a algum tempo e preciso da ajuda de vocês...

Essa planilha é Relatório Diário de Obras, onde monitoro diariamente os serviços em execução. Inicialmente tenho 2 abas, sendo "Fechamento Mensal" e "01" e os dados são preenchidos a partir da aba "01" que equivale ao primeiro dia do mês. Há um botão de "INSERIR NOVO RDO", que executa a macro "Novo_RDO" que copia a aba ativa, apaga os dados preenchidos equivalentes ao dia e renomeia para "02", porém não estou conseguindo inserir, nessa mesma macro, o comando para excluir as imagens fotográficas para que possam ser inseridas novas imagens referente ao dia "02" sem excluir o objeto de imagem, já que tenho uma outra macro para inserir as novas fotos e cada imagem tem seu botão de inserir. (print anexo)

Abaixo a macro que tenho, e nela preciso inserir os códigos para exclusão das imagens Image3 até Image12 da aba "02".

Sub Novo_RDO()
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
[BP5] = ([BP5] + 1)
[CM2] = Format([CM2] + 1, "0#")
ActiveSheet.Name = [CM2]
Range("AJ19:AK23").ClearContents
Range("BP16:BZ19").ClearContents
Range("M32:W48").ClearContents
Range("AW32:BA61").ClearContents
Range("BV32:CA61").ClearContents
Range("C64:CA80").ClearContents
Range("C2").Activate

INSERIR AQUI OS CÓDIGOS PARA EXCLSÃO DAS FOTOS, FICANDO SEM IMAGEM

End Sub

 

Poderiam me ajudar?

 

Obrigado

[Frank K Hosaka]

Eu simplifiquei o seu código assim:

Sub Novo_RDO()
    ActiveSheet.Name = Format(CInt(ActiveSheet.Name) + 1, "00")
    Range("A1:A1").ClearContents
End Sub

Quanto às imagens, eu deixaria tudo lá, e iria atualizar cada uma com o botão direito > alterar imagem.

[mcthheus]

Bom dia Frank,

Primeiramente, obrigado pela resposta!!

Esse código que enviou apaga o dia atual quando é inserida uma nova RDO, ou seja, fica visível apenas a RDO do dia e a intenção é ter todos os dias visíveis para acompanhamento.

Como a planilha possui várias fórmulas e principalmente objetos, vou mantê-la bloqueada para não acontecer alterações indesejadas ou até mesmo propositais e com isso, consigo inserir fotos na RDO apenas clicando no botão de inserir em cada objeto de imagem. 

Gostaria que, clicando no botão "Inserir Novo RDO" abre uma aba nova, já com a data atualizada e toda em branco, para um novo preenchimento.

 

Obrigado

 

[Frank K Hosaka]

Sub Novo_RDO()
    'código hospedado no módulo de programação em EstaPastaDeTrabalho
    'esse código presume que o usuário pegou a última planilha com o formato nn
    NomePlanilha = ActiveSheet.Name
    Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count) 'cria nova planilha baseada na anterior
    ActiveSheet.Name = Format(NomePlanilha + 1, "00")
    Range("B1:B3").ClearContents 'limpa a área de dados
    Range("B1").Value = InputBox("Por favor, insira a data da obra")
    MsgBox "Por favor, altere as imagens para corresponder a essa RDO"
End Sub