Este fórum está sendo desativado

[robertbr00]

Senhores, boa noite!

Quero editar uma imagem no exel através das células

EX: uma célula é para o cumprimento da imagem
uma célula é para a altura da imagem

ao digitar 10 em cada , a imagem automaticamente fica quadrada
da mesma forma se eu colocar 20 em uma e 10 na outra, a imagem fica retangular.

att,

Robert Argolo
Técnico em eletrônica
Robert_0067@hotmail.com

[laennder]

É possível fazer via macro.

Insira a imagem, atribua um nome a ela (selecione e utilize a caixa de nome), e insira o código na módulo da planilha.

onde 'logo' é o nome da imagem, e G2 e G3 as células que irão conter os tamanhos

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet.Shapes("logo")
        .LockAspectRatio = msoFalse
        If Not Intersect(Target, Range("G2")) Is Nothing Then .Height = Range("G2")
        If Not Intersect(Target, Range("G3")) Is Nothing Then .Width = Range("G3")
    End With
End Sub

Segue planilha em anexo.

[robertbr00]

É possível fazer via macro.

Insira a imagem, atribua um nome a ela (selecione e utilize a caixa de nome), e insira o código na módulo da planilha.

onde 'logo' é o nome da imagem, e G2 e G3 as células que irão conter os tamanhos

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet.Shapes("logo")
        .LockAspectRatio = msoFalse
        If Not Intersect(Target, Range("G2")) Is Nothing Then .Height = Range("G2")
        If Not Intersect(Target, Range("G3")) Is Nothing Then .Width = Range("G3")
    End With
End Sub

Segue planilha em anexo.

Laennder, muito obrigado pela atenção e apoio, ajudou muito, inclusive pela disposição de criar a planilha de exemplo, grato!