• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

makro kodunun anlamı

  • Konbuyu başlatan Konbuyu başlatan 4321
  • Başlangıç tarihi Başlangıç tarihi
Katılım
23 Temmuz 2009
Mesajlar
37
Excel Vers. ve Dili
2010 Türkçe
arkadaşlar merhaba,

ekte gösterilen mor renkli grafiğin (1. buton experience graph tıklandığında gelen) kodunda yer alan

ActiveSheet.Shapes.Range(Array("Group 19")).Visible = True

array grooup19 neyi ifade etmektedir, yardımcı olursanız çok sevinirim
 

Ekli dosyalar

Bildiğim kadarıyla "Adı Group 19 olan şekil" anlamına geliyor.
 
Merhaba.

Sayfaya eklenmiş olan bazı nesneler (Metin Kutusu vs.) var ve bunlardan bazıları gruplandırılmış durumda.
Bunlardan birinin adı da Group 19 şeklinde, mevcut kodlar bu nesne gruplarını gösteriyor veya gizliyor.
Bu grupları (gruba dahil nesneleri) gruptan ayırabilir, mevcut grup veya nesneleri CTRL tuşu basılı iken fareyle seçerek fareyle sağ tıklayıp yeni nesne grupları da oluşturabilirsiniz.
Oluşan nesne gruplarının adını (nesne grubu seçiliyken) formül çubuğunun bulunduğu kısımda en solda görebilirsiniz.
.
 
teşekkür ederim,
o şekilleri ben excel dosyasında neden göremiyorum,
grafikleri o metin kutularının içine mi kaydetmiş?
 
teşekkür ederim,
o şekilleri ben excel dosyasında neden göremiyorum,
grafikleri o metin kutularının içine mi kaydetmiş?

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayın ve herhangi bir hücrede çift tıklayın.

Seçili şekil sizin görmek istediğiniz şekildir.

Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    With ActiveSheet.Shapes.Range(Array("Group 19"))
        .Visible = True
        .Select
    End With
    
End Sub
 
Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayın ve herhangi bir hücrede çift tıklayın.

Seçili şekil sizin görmek istediğiniz şekildir.

Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    With ActiveSheet.Shapes.Range(Array("Group 19"))
        .Visible = True
        .Select
    End With
    
End Sub

teşekkür ederim ben yapamadım sanırım,

run time eror 1004
belirtilen adlı öğe bulunamadı hatası veriyor,
 
Geri
Üst