Menü > Ekle kısmından oluşturulmuş şekil, grafik, wordart gibi nesnelerin hepsini seçmeye yarayan koddur.
Option Explicit Sub AktifSayfadakiNesneleriSec() ActiveSheet.DrawingObjects.Select End Sub