Sub РеквизитыЗаказчика()
|
Sub РеквизитыЗаказчика() ' ' РеквизитыЗаказчика Macro ' Macro recorded 28.11.1999 by Vladimir Billig ' Именование бланка Range("C16:I16").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "СЧЕТ-ФАКТУРА № от " With ActiveCell.Characters(Start:=1, Length:=31).Font .FontStyle = "Полужирный" .Size = 14 End With With ActiveCell.Characters(Start:=32).Font .FontStyle = "Полужирный Курсив" .Size = 11 End With 'Задание полей реквизитов заказчика Range("B19:C19").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Покупатель" Range("B20:C20").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Адрес" Range("B21:C21").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Тел., Факс, Email" Range("B22:C22").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "ИНН" Range("D19:J19").Select Selection.MergeCells = True Range("D20:J20").Select Selection.MergeCells = True Range("D21:J21").Select Selection.MergeCells = True Range("D22:J22").Select Selection.MergeCells = True 'Создание рамки ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _ 34.5, 231.75, 452.25, 63.75).Select Selection.ShapeRange.Fill.Visible = msoFalse 'Надпись на рамке ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 95, 225, 60, 15).Select Selection.Characters.Text = "Покупатель" 'Реквизиты грузоотправителя и грузополучателя Range("B25:D25").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Грузоотправитель и его адрес" Range("E25:J25").Select Selection.MergeCells = True Range("B26:D26").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Грузополучатель и его адрес" Range("E26:J26").Select Selection.MergeCells = True Range("B25:J26").Select Selection.Font.FontStyle = "Полужирный Курсив" Selection.Font.Size = 9 'Отчеркивание ActiveSheet.Shapes.AddLine(44.25, 357.75, 500.25, 357.75).Select Selection.ShapeRange.Line.Style = msoLineThinThin Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.ForeColor.SchemeColor = 48 Selection.ShapeRange.Line.Visible = msoTrue End Sub |
| Листинг 6.23. |
| Закрыть окно |
