BEDS87

Resolvido: ActiveSheet.Shapes("Retângulo 1").TextFrame.Characters.Font.Color = RGB(255, 255, 255)

Bom dia a todos, Em uma linha do macro que estou fazendo, preciso que alguns retângulos mudem da cor azul escuro para cinza, problema que a fonte usada no texto inserido neles é branco, então fica difícil de ler. Por isso queria saber qual o código para alterar a cor da fonte de uma forma ("desenho"). Eu sei que para mudar a cor de preenchimento da forma é: ActiveSheet.Shapes("Retângulo 1").Line.ForeColor.RGB = RGB(255, 255, 255) E se fosse para alterar a cor da fonte de uma célula, seria: Range ("A1"). Font.Color = RGB (255, 255, 255) Porém esse código não funciona em formas. Aqui uma imagem dos retângulos para exemplificar: Alguém pode me ajudar? Att,

Bom dia, Estou fazendo um macro para inserir novos itens em uma tabela, então fiz o código abaixo. Ele funciona normalmente, mas me veio a duvida sobre como facilitar a seleção de um intervalo. Como posso usar o offset, por exemplo, sem precisar do auxilio dessas 3 variáveis? Esse é simples, mas se fosse algo mais complexo teria q usar o alfabeto inteiro. Se não fosse uma seleção relativa, bastaria usar, por exemplo: