2 maneiras de mover em lote todos os gráficos de todas as planilhas existentes para uma nova criada na pasta de trabalho do Excel

Se cada planilha em uma pasta de trabalho do Excel contém vários gráficos e você deseja mover todos eles em lote para uma nova planilha, consulte este artigo. Apresentaremos duas maneiras fáceis de fazer isso.

Depois de criar gráficos para os dados em cada planilha de uma pasta de trabalho do Excel, para melhor analisar os dados de acordo com esses gráficos, você pode querer reunir todos esses gráficos em uma mesma planilha. Em outras palavras, você pode esperar mover todos eles para uma nova planilha. Se houver poucos gráficos, basta usar o seguinte Método 1 para mover um por um. No entanto, se houver uma infinidade de gráficos, é melhor utilizar o último.

Método 1: mover manualmente o gráfico um por um

1. Primeiramente, crie uma nova planilha onde você deseja mover todos os gráficos.
2. Em seguida, abra uma planilha e lance em um gráfico nela.
3. Em seguida, clique com o botão direito do mouse no gráfico e selecione “Mover gráfico” no menu de contexto.
4. Na caixa de diálogo pop-up “Move Chart”, selecione a nova planilha na lista “Object in” e clique em “OK”.
5. Imediatamente, o gráfico selecionado será movido.
6. Agora, você pode usar esta forma para processar todos os gráficos em todas as planilhas, um por um.

Método 2: Movimentação em Lote com Excel VBA

1. Para começar, inicie o editor Excel VBA de acordo com “Como executar o código VBA no seu Excel".
2. Em seguida, coloque o código a seguir em um módulo ou projeto.

Sub MoveAllCharts()
    Dim strNewSheet As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objChart As Object

    'Create a new sheet
    strNewSheet = "Charts"
    ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
    Set objTargetWorksheet = Application.Worksheets(strNewSheet)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strNewSheet Then
           'Move each chart to the new sheet one by one
           For Each objChart In objWorksheet.ChartObjects
               objChart.Chart.Location xlLocationAsObject, strNewSheet
           Next objChart
        End If
    Next

    objTargetWorksheet.Activate
End Sub

3. Depois, pressione diretamente “F5” para executar esta macro agora.
4. Quando a macro terminar, saia do editor VBA.
5. Na janela principal do Excel, você pode ver uma nova planilha, na qual você pode ver todos os gráficos.

Comparação

Reparar Arquivo Excel Danificado

O arquivo do Excel está sujeito a corrupção, pois o Excel pode travar de vez em quando. Sob tal circunstância, é melhor você preparar um poderoso e confiável recuperação xlsx ferramenta, como DataNumen Excel Repair. Ele será útil quando o arquivo do Excel for corrompido e o recurso de recuperação automática do Excel não funcionar.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com