Dikdörtgen 1, kursora bağlı olarak nasıl yatay hareket eder?

[Tevfik_Kursun]

Günaydın Arkadaşlar,

ActiveSheet.Shapes("Dikdörtgen 1").Top = ActiveCell.Offset(0, 0).Rows.Top

Bu makro, kursor hangi satırda ise Dikdörtgen 1 'i onun hizasına düşey olarak götürüyor. Dikdörtgen 1 'in kursorun hizasında yatay olarak hareketi nasıl sağanır? (Rows yerine Columns yazdım olmadı.)
Saygılarımla

 

[kulomer46]

Merhaba

Aşağıdaki kod düzeni talebinizi karşılar.

Selamlar...

ActiveSheet.Shapes("Dikdörtgen 1").Top = ActiveCell.Offset(0, 0).Rows.Top
ActiveSheet.Shapes("Dikdörtgen 1").Left = ActiveCell.Offset(0, 0).Rows.Left

 

[Tevfik_Kursun]

Sayın Kulomer46 Hocam,
Çok teşekkür ederim. Çalışıyor.
Saygılarımla

 

[kulomer46]

Sayın Kulomer46 Hocam,
Çok teşekkür ederim. Çalışıyor.
Saygılarımla

Selamlar...