Viñetas con VBA

Hola tengo una pregunta que me atormenta.
¿Cómo colocar una viñeta en excel mediante VBA?
Ya que desde la hoja de calculo uno va a INSERTAR/SIMBOLO y de ahí uno inserta una viñeta redonda, pero como hacerlo mediante un código.
Ojala me puedas ayudar.
Saludos.

1 Respuesta

Respuesta
1
En ppio lo único que se me ocurre es que insertes un carácter común y luego cambies la fuente a Wingdings (ej/ la L minúscula (l) es la viñeta redonda)
Mira el siguiente código (ponelo en un archivo en blanco y ejecutalo para ver lo que hace)
Sub Macro1()
ActiveCell.FormulaR1C1 = "l"
With Selection.Font
.Name = "Wingdings"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("D3").Select
ActiveCell.FormulaR1C1 = "l asd as s as as "
Range("D3").Select
ActiveCell.FormulaR1C1 = "l asd as s as as "
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=2, Length:=16).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("D4").Select
End Sub
Eso mismo hice con la grabadora de macros y ahí empecé a trabajar con el código obtenido, pero quería hacerlo sin "wingdings", en todo caso muchas gracias por tu tiempo de responder.
Muy agradecido.
Saludos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Error en macro con tabla dinamica

Ok te explico el problema hice una macro donde se genera una tabla dinamica en el lugar de pagina de la tabla dinamica utilizo una variable que la da el usuario por medio de un inputbox le solicita el dato pero como la variable es numerica puede que...
1 respuesta

Formato celdas excel con vb

Estoy realizando unos informes pero a la hora de pasarlo al excel (desde el vb) lo pego como una matriz pero me gustaría darle formato a varias filas. Es decir primero le doy el mismo formato a toda la matriz y después a la fila de tienen en la...
1 respuesta

Palomas de verificación

Como le hago para en vez de que en una celda poner si o no en forma de texto lo pueda hacer a través de una imagen que dándole clic me ponga una paloma que sea equivalente al si
2 respuestas

Problemas con un proceso de excel

Primero me presento pues soy nuevo en este foro. He encontrado por la web un montón de temas que hacen referencia al tema planteado, pero ninguno logra solucionarme el problema. El problema es el siguiente. Abro un libro de excel, y según los datos...
2 respuestas

Ordenar datos desordenados de una TABLA en OTRA

La presente es para agradecer a Dios y felicitarles por su invalorables apoyos en nuestras consultas, lo cual quedamos sumamente agradecidos al respecto. Asimismo es para hacerle la siguiente pregunta: Como haríamos para ordenar una tabla que...
1 respuesta

Rango de gráfico por macro

He terminado de diseñar un proyecto sobre ratios mensuales y su representación en un gráfico. Lo único que se me está escapando es la posibilidad de modificar el rango de las series del gráfico. Tengo la siguientes series de datos: Ene-02 Feb-02 ...
1 respuesta

Sobre macros en Excel

Me encargaron en la escuela dos ejercicios para hacerlos en excel pero no tengo mucha experiencia haciendo macros,.. ¿Podrías ayudarme? Los ejercicios son los siguientes: ---------- Crea una macro llamada PonerTitulo que realice las siguientes...
1 respuesta