Kształt VBA przezroczysty

ActiveSheet.Shapes(1).Fill.Visible = msoFalse
VasteMonde