Economia
Enviado por itzel_castro_33 • 24 de Septiembre de 2015 • Documentos de Investigación • 452 Palabras (2 Páginas) • 111 Visitas
55 5455 9559ddShape(TipoForma, Izquierda, Arriba, Longitud, Altura)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 220, 10, 100, 55).Select
Dim imagen As String
imagen = "C:\Documents and Settings\navarj09\My Documents\My Pictures\logosolo.jpg"
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture imagen
End With
With Selection.ShapeRange.Line
.Visible = msoFalse
End With
'agrega el borde del encabezado
Range("A1:G5").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ThemeColor = 4
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ThemeColor = 4
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ThemeColor = 4
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ThemeColor = 4
.Weight = xlThick
End With
Range("A2").Select
ActiveCell.Value = "RUTA"
ActiveCell.Font.Color = RGB(108, 166, 205)
ActiveCell.Font.Bold = True
...