Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como girar uma imagem com base em um valor de célula no Excel?

No Excel, podemos rodar a imagem arrastando o mouse, mas você já tentou girar uma imagem com base em um valor de célula. Por exemplo, a imagem será girada por graus 90 se o valor da célula for 90 no Cell A1 conforme mostrado abaixo na tela.
Doc rotear imagem por célula 1

Gire uma imagem com base no valor da célula com o código de macro

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel - A melhor ferramenta de produtividade do Office resolverá a maioria dos problemas do Excel
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair Número da Cadeia de Texto; Extrair ou remover parte dos textos; Converta números e moedas em palavras inglesas ...
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma ...
  • Ferramentas de divisão: Dados divididos em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas ...
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Criar lista de discussão e Envie e-mails pelo valor da célula...
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação na empresa; Recursos completos Avaliação gratuita de um dia de 60.

Gire uma imagem com base no valor da célula com o código de macro


Apenas um código de macro pode ajudá-lo a girar uma imagem com base em um valor de célula no Excel.

1. Digite um valor no Cell A1, você girará a imagem e ativará a imagem que deseja rotear.

2. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela e clique em inserção > Módulo para inserir um novo espaço em branco Módulo. Ver Captura de tela:
Doc rotear imagem por célula 2

3. Cole abaixo o código para o Módulo script e, em seguida, pressione F5 para executar o código. Ver captura de tela:

VBA: gire a imagem pelo valor da célula

Sub RotateImage()
Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value
End Sub

Doc rotear imagem por célula 3
Doc rotear imagem por célula 1

Observação: No código, A1 é a célula que deseja girar a imagem com base em, você pode alterá-la conforme você precisa.


Artigos relativos:


Kutools for Excel - A Melhor Ferramenta de Produtividade no Escritório Aumenta Sua Produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 60.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Haley · 1 years ago
    This is what I want to do to an image, but I want it to rotate from the vertical position by however many degrees the cell states each time. However, say the cell says 30, it will rotate 30 degrees, but then if the cell value changes to 15, it will rotate 15 from the 30 position (45 from the vertical). I want it to rotate 15 from the vertical this time. Is there a way to do this?


    Thanks!
    • To post as a guest, your comment is unpublished.
      Andrew · 9 months ago
      Take the code from above:

      Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

      And modify it like so:

      Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
    • To post as a guest, your comment is unpublished.
      Jon H. · 1 years ago
      Hey there, I have the same requirement too. Have you by chance figured out how to have the image rotate from "zero" every time?
      • To post as a guest, your comment is unpublished.
        Sunny · 1 years ago
        Sorry I have no idea about this problem. You can place your prolem in out forum, maybe someone can help you solve it. https://www.extendoffice.com/forum.html
        • To post as a guest, your comment is unpublished.
          Andrew · 9 months ago
          Take the code from above:

          Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

          And modify it like so:

          Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value