Nesse PowerPoint tutorial você aprenderá como exportar seus slides de apresentações criados no PowerPoint em imagens de alta resolução, com dimensões personalizadas, que podem ser usadas para montagem de banner YouTube, banner publicitário, wallpaper 4k, impressão de alta resolução e várias outras aplicações.
Com o PowerPoint é possível exportar slides para o formato imagem com níveis entre 96 dpi a 1000 dpi. Uma imagem com 1000 dpi, seria uma imagem duas vezes maior que o 8k, em termos de proporção teríamos uma imagem equivalente a 16k.
Abaixo segue uma tabela com as dimensões de imagens para diferentes níveis de dpi.
Pontos por polegada (DPI) | Pixels widescreen (horizontal × vertical) |
96 DPI (Padrão) | 1280 x 720 |
100 DPI | 1333 x 750 |
144 DPI (1080p) | 1920 x 1080 |
150 DPI | 2000 x 1125 |
200 DPI | 2667 x 1500 |
250 DPI | 3333 x 1875 |
288 DPI (4K) | 3840 x 2160 |
300 DPI | 4000 x 2250 |
576 DPI (8K) | 7680 x 4320 |
600 DPI | 8000 x 4500 |
800 DPI | 10667 x 6000 |
1000 DPI | 13333 x 7500 |
Por padrão o PowerPoint exporta seus slides para imagens com 96 dpi. Para conseguir imagens de alta resolução com dpi superior a esse, existem duas maneiras possíveis no PowerPoint, a primeira é a forma manual e a segunda é através de código VBA (PowerPoint VBA).
Utilizando a forma manual, para exportar um slide em imagem com 300 dpi ou 600 dpi, por exemplo, precisamos mudar o padrão de salvamento do PowerPoint. Isso pode ser feita através de uma pequena mudança de configuração dentro do Editor do Registro do seu computador. A seguir disponibilizamos as etapas que devem ser realizadas.
Método manual
1 – Localize o comando de busca do seu sistema, digite Editor do Registro, click para abrir. Em seguida, na caixa de diálogo, selecione “SIM”.
2 – Siga o seguinte caminho:
Versão PowerPoint | Caminho |
PowerPoint 2016, 2019,365 | HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\PowerPoint\Options |
PowerPoint 2013 | HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\PowerPoint\Options |
PowerPoint 2010 | HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\PowerPoint\Options |
PowerPoint 2007 | HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\PowerPoint\Options |
Após chegar em “options“, aparecerá a seguinte janela ao lado:
3 – Em seguida click no menu Editar e depois em Novo Valor DWORD (32 bits).
4 – Dentro do novo ícone gerado escreva: ExportBitmapResolution, conforme imagem abaixo:
5 – Click com o botão direito do mouse em cima de ExportBitmapResolution, em seguida click em Modificar, confrome imagem abaixo:
6 – Por fim, na caixa de diálogo Editar Valor DWORD, selecione Decimal, e no campo Dados do valor, escreva o valor dpi desejado. Nesse exemplo, escrevemos 300 dpi.
Após realizar os procedimentos acima, seu PowerPoint já está configurado para exportar imagens com o dpi escolhido. No caso do exemplo mostrado, todos os slides exportados para o formato imagem, seja JPG ou PNG, serão exportados com 300 dpi. Caso seja necessário imagens com uma resolução ainda maior, é seguir as etapas novamente e inserir um valor dpi maior, por exemplo, 600 dpi, 800 dpi ou até mesmo 1000 dpi.
Bom, esse é o método manual de exportar imagens de alta resolução, porém existe uma maneira mais fácil e profissional de fazer esse processo. Usando PowerPoint VBA é possível exportar seus slides em imagens de alta resolução muito mais rápido e com qualquer tamanho dpi, sem precisar ter todo esse trabalho.
Método via Código VBA
Por meio do formulário VBA abaixo, criado no ambiente de programação VBA do PowerPoint, é possível exportar seus slides, escolher o formato da imagem e realizar exportação diretamente para uma pasta do computador, sem precisar fazer qualquer configuração.
'Esse cógigo permite a seleção de apenas um dos tamanhos em dpi, ao selecionar ele já define as dimensões de largura e altura referentes a cada um Sub dpiSeleciona() Dim altur As Integer Dim larg As Integer On Error Resume Next If dpi96.Value = True Then larg = 1280 altur = 720 ElseIf dpi100.Value = True Then larg = 1333 altur = 750 ElseIf dpi144.Value = True Then larg = 1920 altur = 1080 ElseIf dpi150.Value = True Then larg = 2000 altur = 1125 ElseIf dpi200.Value = True Then larg = 2667 altur = 1500 ElseIf dpi250.Value = True Then larg = 3333 altur = 1875 ElseIf dpi288.Value = True Then larg = 3840 altur = 2160 ElseIf dpi300.Value = True Then larg = 4000 altur = 2250 ElseIf dpi576.Value = True Then larg = 7680 altur = 4320 ElseIf dpi600.Value = True Then larg = 8000 altur = 4500 ElseIf dpi800.Value = True Then larg = 10667 altur = 6000 ElseIf dpi1000.Value = True Then larg = 13333 altur = 7500 End If largura.Caption = larg altura.Caption = altur End Sub
Private Sub ExportarCmd_Click() 'declaração das variáveis Dim caminho As String Dim formato As String Dim larg As Integer Dim alt As Integer Dim nome As String Dim SlideMsg As Integer Dim nSlide As Integer On Error Resume Next 'Impõe que pelo menos um tamanho deve ser selecionado If dpi96.Value = False And dpi100.Value = False And dpi144.Value = False And dpi150.Value = False And _ dpi200.Value = False And dpi250.Value = False And dpi288.Value = False And dpi300.Value = False And _ dpi576.Value = False And dpi600.Value = False And dpi800.Value = False And dpi1000.Value = False Then MsgBox "Selecione o Tamanho de Imagem que deseja!", vbExclamation, "Tamanho da Imagem" Exit Sub End If 'impõe que pelo menos um formato de imagem deve ser selecionado If pngfrm.Value = False And jpgfrm.Value = False Then MsgBox "Selecione o Formato de Imagem que deseja!", vbExclamation, "Formato da Imagem" Exit Sub End If 'impõe que o neme da imagem seja informado If imagemtxt.Value = "" Then MsgBox "Defina um nome para sua Imagem", vbExclamation, "Nome da Imagem" Exit Sub End If 'exibe as dimensões em pixels para o tamanho selecionado larg = largura.Caption alt = altura.Caption nome = imagemtxt.Value If pngfrm.Value = True Then formato = "PNG" ElseIf jpgfrm.Value = True Then formato = "JPG" End If 'define o local onde a imagem será salva, nesse caso, será salva na mesma pasta do arquivo PowerPoint caminho = Application.ActivePresentation.Path & "\" & nome & "." & formato 'pede que voce informe o número do slide que será exportado em imagem SlideMsg = InputBox("Informe o número do Slide que deseja exportar", "Informe o Slide") 'impõe que o valor informado do slide, obrigatoriamente, seja um numero If Not IsNumeric(SlideMsg) Then MsgBox "Somente é aceito números inteiros!", vbExclamation, "Valor não aceito!" Exit Sub End If 'realiza a exportação do slide para o formato imagem selecionado e o tamanho dpi informado Application.ActivePresentation.Slides(SlideMsg).Export caminho, formato, larg, alt 'mensagem informando que a operação foi realizada com sucesso MsgBox "Imagem salva com sucesso!" & vbNewLine & vbNewLine & "Pasta de Destino:" & vbNewLine & caminho, vbInformation, "Imagem Salva!" End Sub
Botão para download do arquivo.
Great post. I was checking constantly this blog and
I am impressed!
Very helpful info particularly the last part
I care for
such info a lot. I was seeking this certain information for
a long time. Thank you and best of luck.
Hi Harriet, thanks for the words of support and encouragement. I’m happy it has helped you!