none
NOVA PASTA DE TRABALHO COM IMAGEM - EXCEL VBA RRS feed

  • Pergunta

  • Boa tarde.

    O código abaixo cria uma nova pasta de trabalho, porém não copia uma imagem localizada no topo da planilha. Podem me ajudar?

    Sub NovaPastaSemFormulas()
    Dim CurrentSheet As Worksheet

    Application.ScreenUpdating = False

            'Nome na Planilha Ativa em B2
            nomeB2 = CStr(ActiveSheet.Range("B2").Value)

            Set CurrentSheet = ActiveSheet

            On Error Resume Next

            'copia todas as células da planilha ativa
            CurrentSheet.Cells.Copy

            'Cria a Nova PASTA (ARQUIVO)
            Set Wkb = Workbooks.Add

            'cola somente os valores na planilha Ativa da nova Pasta,
            'sem formulas e mantenndo a formatação
            With ActiveSheet.Range("A1")
              .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
              .PasteSpecial Paste:=xlFormats
            End With

            Application.CutCopyMode = False

            'Define os Novos Nomes - Planilha(ABA) e Pasta(Arquivo)
            novoNome = nomeB2

            'Renomeia a planilha nova com
            'o Nome que estava em B2
            With ActiveSheet
                .Name = novoNome
                .Range("A1").Select
            End With

            Range("A1").Select

            'Enibe a mensagem se a pasta já existir
            'Com essa instrução a Pasta será substiutida sem questionamento
            Application.DisplayAlerts = False

            'Salva a Nova Pasta no Diretorio abaixo com o mesmo Nome
            'Alterem o mesmo conforme o endereço que querem
            Wkb.SaveAs Filename:=Workbooks("SAP2.xlsm").Path & "\" & novoNome & ".xls"
    End Sub


    terça-feira, 7 de novembro de 2017 16:43

Todas as Respostas

  • Devo agregar este código ao meu?
    terça-feira, 7 de novembro de 2017 17:05
  • EXECUTE DEPOIS DE EXECUTAR O SEU

    Anderson Diniz diniabr2011@gmail.com

    terça-feira, 7 de novembro de 2017 17:07
  • Option Explicit
    
    Sub Macro1()
    'Seleciona a planilha1
    Sheets("Planilha1").Select
    'Seleciona a imagem Imagem 1
        ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    'Copia a imagem selecionada
        Selection.Copy
    'Seleciona a planilha2
        Sheets("Planilha2").Select
    'Seleciona a célula a partir da qual será colada a imagem
        Range("A1").Select
    'Cola a imagem na planilha selecionada
        ActiveSheet.Paste
    End Sub
    


    Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 terça-feira, 7 de novembro de 2017 17:18
    • Não Sugerido como Resposta Everton_Delmiro sexta-feira, 12 de janeiro de 2018 22:33
    terça-feira, 7 de novembro de 2017 17:18