O Microsoft Excel é um dos programas de planilhas mais poderosos disponíveis e é útil para uma enorme variedade de atividades, desde análise financeira até projetos científicos. No entanto, a maioria das pessoas pensa no Excel como limitado à manipulação de grades de fórmulas, ou seja, funcionalidade de planilha tradicional. Mas os scripts do Visual Basic do Excel tornam mais fácil fazer ainda mais do que isso. Com o VB, você pode desenhar qualquer forma que desejar na planilha e usá-las para criar desenhos, gráficos e outros gráficos para ajudar a visualizar sua planilha.
Etapa 1
Abra o Microsoft Excel. Se você tiver o Excel 2007 ou posterior, vá para a guia "Exibir" na faixa de opções e clique em "Macros"; caso contrário, clique no menu "Ferramentas" e escolha "Macros". A caixa de diálogo Macro deve aparecer.
Etapa 2
Digite um nome de macro e clique em "Criar". Isso deve abrir o editor de aplicativos do Visual Basic com uma nova sub-rotina vazia exibida na tela.
Etapa 3
Determine as coordenadas X e Y que você gostaria de usar para o início e o fim do seu vetor. O canto superior esquerdo da planilha está em (0, 0), e X e Y aumentam à medida que você vai para a direita e para baixo, respectivamente. Coloque esses valores em variáveis, assim:
start_x =0 start_y =0 end_x =100 end_y =100
Esses valores desenharão uma linha diagonal no canto superior esquerdo da planilha. Você pode precisar experimentar com números diferentes para obter a linha exatamente onde deseja.
Etapa 4
Adicione código para desenhar a própria linha:
linha =Sheet1.Shapes.AddLine(start_x, start_y, end_x, end_y)
Etapa 5
Adicione código para adicionar uma ponta de seta ao final da linha, para que pareça um vetor:
line.Line.EndArrowheadStyle =MsoArrowheadStyle.msoArrowheadTriangle
Etapa 6
Feche o editor do Visual Basic e abra a caixa de diálogo Macro (consulte a Etapa 1). Clique na sua macro e clique em "Executar". Você deve ver sua linha aparecer.
Dica
Você pode usar a variável "line" criada na Etapa 4 para alterar outras propriedades do seu vetor. Por exemplo, para alterar a cor da linha para verde, você pode escrever "line.Line.ForeColor.RGB =RGB(0, 255, 0)"