
punta de flecha
Publicado por Paolo Santos (4 intervenciones) el 30/09/2009 04:03:24
buena tarde, tengo un problema en una hoja de excel tengo un codigo para dibujar una linea con el objeto shape.addline en base a coordenadas segun dos celdas que eh definido anteriormente, pues el codigo funciona de maravilla pero necesito que al final de dibujar la linea me cambie la punta, por una punta de flecha, pero no encuentro donde modificarlo para que lo haga encontre que para el cambio del color se utiliza
Sheets(ActiveSheet.Name).Shapes.AddLine(PTOXINICIO, PTOYINICIO, PTOXFIN, PTOYFIN).Line.ForeColor.RGB = RGB(intR, intG, intB)
pero no encuentro algo para hacer mas gruesa la linea ni para cambiar el final de la linea sea una punta flecha, alguien me podria ayudar para hacer dicho cambio muy agradecido.
ahhh y como segundo problema en la misma situacion hago un cuadro de texto mediante el codigo:
Sheets(ActiveSheet.Name).Shapes.AddTextbox(msoTextOrientationHorizontal, PTOXINICIO, PTOYINICIO, 20, 15).TextFrame.Characters.Text = "Prueba"
pero tambien no encuentro como cambiar el borde y el color del texto a un color RGB
gracias por su ayuda mil gracias. saludos
Paolo Santos
Sheets(ActiveSheet.Name).Shapes.AddLine(PTOXINICIO, PTOYINICIO, PTOXFIN, PTOYFIN).Line.ForeColor.RGB = RGB(intR, intG, intB)
pero no encuentro algo para hacer mas gruesa la linea ni para cambiar el final de la linea sea una punta flecha, alguien me podria ayudar para hacer dicho cambio muy agradecido.
ahhh y como segundo problema en la misma situacion hago un cuadro de texto mediante el codigo:
Sheets(ActiveSheet.Name).Shapes.AddTextbox(msoTextOrientationHorizontal, PTOXINICIO, PTOYINICIO, 20, 15).TextFrame.Characters.Text = "Prueba"
pero tambien no encuentro como cambiar el borde y el color del texto a un color RGB
gracias por su ayuda mil gracias. saludos
Paolo Santos
Valora esta pregunta


0