Вы бы запись макросов включили, да поразглядывали, что получается, а то вместо объекта слой красить пытаетесь
Sub Macr()
ActiveLayer.CreateArtisticText(ActivePage.CenterX, ActivePage.BottomY, AnyName, _
cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, ...