Sub РеквизитыИРамка()
|
Sub РеквизитыИРамка() ' ' РеквизитыИРамка Macro ' Macro recorded 27.11. 1999 by Vladimir Billig 'Именование полей реквизитов Range("D9:E9").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Адрес" Range("D10:E10").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Телефон, Факс" Range("D11:E11").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Email" Range("D12:E12").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "ИНН" 'Запись реквизитов Range("F9:K9").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "Москва, ул. Филевская, 15" Range("F10:J10").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "175-3434, 175-3480" Range("F11:J11").Select Selection.MergeCells = True ActiveCell.FormulaR1C1 = "rr@red.ru" Range("F12:J12").Select Selection.MergeCells = True Selection.HorizontalAlignment = xlLeft ActiveCell.FormulaR1C1 = "198712345" Range("F9:J12").Select Selection.Font.Italic = True 'Построение рамки ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _ 105#, 96#, 369.75, 63.75).Select Selection.ShapeRange.Fill.Visible = msoFalse 'Линия отчеркивания ActiveSheet.Shapes.AddLine(48.75, 189#, 475.5, 189#).Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 48 Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.Style = msoLineThinThin Selection.ShapeRange.Line.Weight = 3# End Sub |
| Листинг 6.21. |
| Закрыть окно |
