Помощь в создании макроса

[Санчо Панса]

Нужно залить выбраный объект узором, причем узор должен поварачиваться на тотже угол что и объект, пробовал написать код, но команду заливки при записи VBA не показывает!

 

[banIDit]

Ответ: Помощь в создании макроса

Вот как у меня записался макрос, к примеру:

Sub Sample()
    Dim s1 As Shape
    Set s1 = ActiveLayer.CreateRectangle(0#, 11.692913, 8.267717, 0#)
    s1.Outline.SetProperties 0.003, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), False, False, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100
    With s1.Fill.ApplyTextureFill("Electric fence", "Samples 6") ' Вот команда заливки, а дальше ее параметры...
        .SetProperties 5827, 60, CreateRGBColor(0, 0, 0), CreateRGBColor(0, 255, 0), 0
        .TransformWithShape = True
        .MirrorFill = False
        .TileOffsetType = cdrTileOffsetRow
        .TileOffset = 0
        .RotationAngle = 0#
        .SkewAngle = 0#
        .TileWidth = 8.267717
        .TileHeight = 11.692913
        .OriginX = 0#
        .OriginY = -11.692913
        .MaximumTileWidth = 2049
        .Resolution = 300
    End With
End Sub