Skip to main content
adicionou 1 caractere ao conteúdo
Fonte Link
Luiz Vieira
  • 34,5mil
  • 6
  • 91
  • 160

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' 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

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

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
Fonte Link
Luiz Vieira
  • 34,5mil
  • 6
  • 91
  • 160

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