Economia

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

Range("A3").Select

ActiveCell.Value = "REPRESENTANTE"

ActiveCell.Font.Color = RGB(108, 166, 205)

ActiveCell.Font.Bold = True

Range("B2").Select

Range("B2").Value = "aki mete la variable del distirto"

Range("B2:E2").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.AddIndent = False

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.Merge

Range("B3").Select

...