In diesem Beispiel wird die Rahmenstärke für die erste Ellipse in Sheet1 festgelegt.
Worksheets("Sheet1").Ovals(1).Border.Weight = xlMedium