Добрый день. Есть строки кода:
     

Скрытый текст
With iSloy            .Line.Visible = msoFalse            .Fill.ForeColor.RGB = RGB(r, g, b)        End With

shape забирает себе из нужной ячейки заливку, нужно добавить строку, чтобы он мог забрать еще и штриховку ячейки, т.е.
.Fill.pattern , но у меня не выходит. Нужно задать какие-то параметры...Ячейки уже раскрашены и заштрихованы. Файл с примером я думаю не уместен.