Pergunta sobre excel... Espessura da linha (figura ou autoforma) ligada a uma celula...?
Gostaria de saber como fazer uma figura (linha simples no caso) do proprio excel (autoformas, ou pode ser outro tipo de linha que foi importada), que tenha sua espessura alterada pelo valor de uma celula... Como faço isso????
Comments
Pietro, você não faz isso com as funções padrão do Excel.
É possível fazê-lo com programação VBA.
O trecho de código abaixo faz a mágica:
Coloque em A1 a espessura da linha (cuidado, este programa não critica a informação:números negativos provocam erro e números excessivamente grandes danificam a imagem.
Sub Macro1()
'
' Macro gravada em 3-6-2008 por ****
'
ActiveSheet.Shapes("AutoShape 1").Select
Selection.ShapeRange.Line.Weight = Range("A1").Value
End Sub
Ela pega a primeira autoforma inserida e ajusta sua linha pelo conteúdo da célula A1.
Você pode ajustar "AutoShape 1" para "n", ou mesmo fazer um loop por todas.
O problema é quando disparar esta macro. Você pode associar um botão; usar uma caixa de listagem e selecionar os tamanhos numa lista.
No meu teste eu associei a macro 1 ao clicar na autoforma.
Para isto, r-clic na autoforma e clique em "Atribuir macro".
Para criar a macro, tecle ALT+F11 e digite o trecho do código (antes de associá-la ao evento clicar na autoforma, claro).
Boa sorte