0

Olá,

Segui os passos todos os passos aqui - Adicionar foto em planilha excel a partir de pasta local E tudo funcionou bem.

Mas queria redimensionar as imagens e alinha-las ao centro da célula - horizontal e vertical.

Como não sabia como fazer, editei assim: oCell.Width / 1.2, oCell.Height / 1.2

A imagem ficou com o tamanho que queria em relação à célula, mas fica sempre alinhada em cima à esquerda. Como faço agora para alinhar a imagem ao centro da célula?

1
  • E já agora como funciona se tiver 2 ou mais folhas no ficheiro?
    – Ricardo
    Commented 24/11/2016 às 18:41

1 Resposta 1

2

Quando você diz que "editou" eu estou supondo que você alterou esse trecho de código:

With oImage
    .Left = oCell.Left
    .Top = oCell.Top
    .Width = oCell.Width
    .Height = oCell.Height
End With

Para isso:

With oImage
    .Left = oCell.Left
    .Top = oCell.Top
    .Width = oCell.Width / 1.2
    .Height = oCell.Height / 1.2
End With

Ou seja, na prática você reduziu o tamanho da imagem. Assim, para centralizar a imagem na célula (sem se preocupar com quanto de fator foi aplicado) o jeito mais fácil é você adicionar às coordenadas do topo (Left e Top) a metade do tamanho da célula e diminuir a metade do tamanho da imagem (que precisa então ser calculado antes, conforme o fator que você está aplicando). Tente assim então:

factor = 1.2 ' Separei em uma variável só pra deixar claro que você pode
             ' mudar sem precisar mexer nas duas linhas finais.
With oImage
    .Width = oCell.Width / factor
    .Height = oCell.Height / factor
    .Left = oCell.Left + oCell.Width / 2 - .Width / 2
    .Top = oCell.Top + oCell.Height / 2 - .Height / 2
End With
5
  • Oi @GuilhermeNascimento. Obrigado! Pra falar a verdade, eu não testei (Ricardo, algum feedback a respeito?). Mas em princípio está correto sim, porque a ideia é descontar a metade da própria altura da imagem (por isso o .Height sozinho). Caso contrário, do jeito que vc sugere, você soma e subtrai o mesmo valor, não é? rs :) Commented 24/11/2016 às 19:21
  • 1
    Nossa é que faz tempo que eu não trabalho com VB, eu queria dizer isso oImage.Height, mas somente agora me dei conta do With, obrigado, o +1 está garantido ;)
    – Syzoth
    Commented 24/11/2016 às 19:23
  • @GuilhermeNascimento Relaxa. Foi bom ter perguntado, porque aí confirma o entendimento. :) Commented 24/11/2016 às 19:24
  • 1
    Perfeito. Resultou na perfeição. Muito obrigado.
    – Ricardo
    Commented 29/11/2016 às 9:04
  • Que bom que resolveu, Ricardo. Nesse caso, por favor considere marcar a resposta como aceita. Saiba mais aqui: pt.stackoverflow.com/help/someone-answers Commented 29/11/2016 às 12:12

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .