Страницы: 1
RSS
Вписать фигуру в выделенные ячейки
 
Доброго времени суток.
Работаю над созданием рабочего графика.
Дано:
Некоторая область (B4:L26), внутри которой при выделении нескольких ячеек и нажатии на кнопку должна появляться фигура
RightTriangle вписанная в выделенные ячейки. Количество фигур неограниченно.
 
Создать треугольник легко, а вот как штриховку сделать - не нашел (2007).
Код
Sub bb()
With Selection
  ActiveSheet.Shapes.AddShape msoShapeRightTriangle, .Left, .Top, .Width, .Height
End With
End Sub
 
Казанский,
спасибо, макрорекордером получилось как-то так:
Код
With Selection
ActiveSheet.Shapes.AddShape(msoShapeRightTriangle, .Left, .Top, .Width, .Height).Select
 With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 1
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .BackColor.ObjectThemeColor = msoThemeColorBackground1
        .BackColor.TintAndShade = 0
        .BackColor.Brightness = 0
        .Patterned msoPattern5Percent
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .Patterned msoPatternLightUpwardDiagonal
    End With
End With

Страницы: 1
Наверх