Site da Vetorial Treinamentos

Gerando Super Imagens com técnicas avançadas do PowerPoint

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 DPI1333 x 750
144 DPI (1080p)1920 x 1080
150 DPI2000 x 1125
200 DPI2667 x 1500
250 DPI3333 x 1875
288 DPI (4K)3840 x 2160
300 DPI4000 x 2250
576 DPI (8K)7680 x 4320
600 DPI8000 x 4500
800 DPI10667 x 6000
1000 DPI13333 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 PowerPointCaminho
PowerPoint 2016, 2019,365HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\PowerPoint\Options
PowerPoint 2013HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\PowerPoint\Options
PowerPoint 2010HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\PowerPoint\Options
PowerPoint 2007HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\PowerPoint\Options
Tabela 02: Destino de acordo com a versão do PowerPoint

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.

UserForm PowerPoint VBA
'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.

4 thoughts on “Gerando Super Imagens com técnicas avançadas do PowerPoint”

  1. 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.

Leave a Comment

O seu endereço de email não será publicado. Campos obrigatórios marcados com *