makro ve şekil

[yaşar681]

arkadaşlar sitede önceden yazılmış olan bir konuyu soracağım sormamın nedeni bütün cevaplara baktım ama anlamadım aşağıda verdiğim örneği bana mümkünse resimle veya anlatarak gösterirmisiniz herkese teşekkür ederim

 

[yaşar681]

kısada olsa bilen yokmu

 

[Skorpiyon]

Alt + F11 tuşlarına basarak kod bölümüne geçiniz ve kodları inceleyiniz.

Private Sub CommandButton2_Click()
ActiveSheet.Shapes("Otomatik Şekil 3").Visible = True '1 adet şekil ekleniyor.
For a = 0 To 245 Step 3 'Şeklin ilk değeri 0 'dan 245 'e doğru 3'erli büyütülüyor
DoEvents 've yap deneliyor
ActiveSheet.Shapes("Otomatik Şekil 3").Height = a 'Şeklin büyüklüğünü a yani ilkinde 3 sonra 6 gibi..
Next
End Sub

 

[yaşar681]

eklenen şekil nasıl seçiliyor ve nerde bulunuyor

 

[Skorpiyon]

Şekil daha önceden çiziliyor. Ve aşağıdaki kod ile görünürlüğü
ActiveSheet.Shapes("Otomatik Şekil 3").Visible = True

ve
ActiveSheet.Shapes("Otomatik Şekil 3").Height = a
kodu ile de büyüklüğü ayarlanıyor.

 

[yaşar681]

Sn : Şaban Sertkaya

benim öğrenmek istediğim önceden çizilen şeklin nasıl çizildiği ve nerde bulunduğu yani saklandığı ben bunu merak ediyorum

 

[Skorpiyon]

Sayın yaşar68,

Şeklin çizilmesi;

Excel'de iken, Ekle-Resim-Otomatik Şekil diyerek pencereyi açınız. İstediğiniz şekli sayfa üzerine çiziniz. Resim sayfa üzerinde saklanır. Kodlar ile bunun görülmesi veya görülmemesi sağlanır.

 

[yaşar681]

resmi sayfa üzerinde nasıl saklarım

 

[Skorpiyon]

Sayın yaşar68,

Siz şekli ekleyip "KAYDET" dediğinizde şekil Excel kitabı içinde saklanır zaten.

Daha olmadı ne yapmak istediğinize dair bir dosya eklerseniz direkt üzernide yardımcı olmaya çalışalım.

 

[hsayar]

arkadaş ferman boxtaki şekli sayfada bulamadı analşılan bende bulamamıştım