Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Alterar Imagem e Re...
 
Notifications
Clear all

Alterar Imagem e Redimensionar

 
2024 - VBA & Macros
Post Recente por BrUnOaFs 8 anos atrás
2 Posts
1 Usuários
0 Reactions
877 Visualizações
RSS
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde galera,

Fiz um formulário para selecionar um Empreendimento.

Gostaria que ao selecionar o empreendimento no formulario a Logo mude de acordo com a seleção.

Eu só preciso do código que altera a imagem.
O resto já conseguir.

OBS: A logo fica na planilha, e não no formulário.

    ActiveSheet.Shapes.Range(Array("LogoProduto")).Select
    
        With Selection
            .Top = .TopLeftCell.Top
            .Left = .TopLeftCell.Left
            .ShapeRange.Height = 73.7
            .ShapeRange.Width = 167.3
            .ShapeRange.IncrementLeft 0.75
            .ShapeRange.IncrementLeft 0.75
            .ShapeRange.IncrementTop 0.75
            .ShapeRange.IncrementTop 0.75
        End With
 
Postado : 08/09/2016 1:44 pm
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Consegui deletando a imagem e inserindo uma nova...

    ActiveSheet.Shapes.Range(Array("LogoProduto")).Select
    Selection.Delete

    Plan1.Shapes.AddPicture(FileName, msoFalse, msoCTrue, 622, 0, 167.3, 73.7).Name = "LogoProduto"
    ActiveSheet.Shapes.Range(Array("LogoProduto")).Select
    Selection.ShapeRange.IncrementTop 1.25

Porém, não consigo colocar o "Estilo de Imagem" da imagem anterior.

O estilo seria Retângulo Biselado

 
Postado : 08/09/2016 2:40 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico