Şimdi Ara

Makro ile çizim nesnelerini gruplamak

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
1
Cevap
0
Favori
811
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Makro ile çizim nesneleri oluşturup gruplamam gerekiyor. aşağıdaki gibi bir kod kullanıyorum ancak çizim nesnelerinin adı her seferinde farklı olduğu için kod hata veriyor.
    Koddaki (Array("Line 2", "Rectangle 1") ifadeleri nasıl değiştirirsem o anda oluşturulan bu iki nesneyi (adı ne olursa olsun) gruplayabilirim?

    Sub Makro2()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 128.25, 52.5, 87, 121.5).Select
    ActiveSheet.Shapes.AddLine(140.25, 106.5, 210, 106.5).Select
    ActiveSheet.Shapes.Range(Array("Line 2", "Rectangle 1")).Select
    Selection.ShapeRange.Group.Select
    End Sub

    dosya indir
    http://rapid share.com/files/185326576/CizimNesnesi.xls.html



    < Bu mesaj bu kişi tarafından değiştirildi feryat -- 18 Ocak 2009; 11:55:52 >







  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.