Shapes object 'lerin "ID" değiştirilmesi Hakında.

[ikikan]

Arkadaşlar sayfa üzerindeki Shapes object 'lerin "ID" numaraları değiştirilebilir mi. "changing reset Replace"
Şimdiden Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Shape ID sadece okunan bir özelliktir değiştirilemez.

Tam olarak ne yapmak istediğinizi yazarsanız belki farklı bir çözüm bulunabilir.

 

[ikikan]

Aslında yapmak istediğim for next döngüsü deki "i" sayacı yerine joker karakter "*" yıldız kullanmak...
With ws1.Shapes("Menü_" & i)
"""makro kodlarım """
End With

 

[alicimri]

Merhaba
İsmi "Menü_" ile başlayan "shape"lere mi referans vermek istiyorsunuz.

 

[ikikan]

Merhaba
İsmi "Menü_" ile başlayan "shape"lere mi referans vermek istiyorsunuz.

Evet

 

[alicimri]

Belirleyici olan o numaralar, Menü_ ile başlayan tüm shape lere referans vermeye çalışmış olursunuz. Buda geçersiz bir kodlama olur

 

[Korhan Ayhan]

İlgili nesneleri döngüye alarak ve isimlerini sorgulayarak sonuca gidebilirsiniz.

Kendinize uyarlayabilirsiniz..

Örnek;

Option Explicit

Sub Test()
    Dim Nesne As Shape
    
    For Each Nesne In Sheets("Sheet1").Shapes
        MsgBox Nesne.Name
    Next
End Sub

 

[ikikan]

Belirleyici olan o numaralar, Menü_ ile başlayan tüm shape lere referans vermeye çalışmış olursunuz. Buda geçersiz bir kodlama olur

Peki üstadım for each ve if ile "Menü_ " ile başlayan tüm shape lere genel referans verilebilirmi?
x= x+1 saydırması yaptırılmadan?

For Each Şekil In ws1.Shapes
if .name = ws1.Shapes("Menü_" & "*" ) Then
...kodlar
else
...kodlar
End if
Next Şekil

 

[Korhan Ayhan]

Örnek dosyanızı ekleyip tam olarak ne yapmak istediğinizi açıklarsanız daha sağlıklı yanıtlar verebiliriz.

 

[alicimri]

İhtiyacınız aşağıdaki gibi bir kod mu?

Sub Test()
    Dim Nesne As Shape
    For Each Nesne In Sheets("Sheet1").Shapes
       if Left(Nesne.Name, 5) = "Menü_" Then
'Kodlar.....
Else
'Kodllar.....
End if
    Next
End Sub

 

[ikikan]

İhtiyacınız aşağıdaki gibi bir kod mu?

Sub Test()
    Dim Nesne As Shape
    For Each Nesne In Sheets("Sheet1").Shapes
       if Left(Nesne.Name, 5) = "Menü_" Then
'Kodlar.....
Else
'Kodllar.....
End if
    Next
End Sub

Evet buna benze aslında buda işime yaradı teşekkürler. Birşey daha danışmam gerekirse "Menü_" & "*" şeklin de yapılabilir mi
sizin tafsiye etiğinizin biraz farklısı .... "*" karakteri kullanıla bilirmi?
if Left(Nesne.Name, 5) = "Menü_" Then yerine if Nesne.Name = "Menü_" & "*" Then

 

[alicimri]

yıldız (*) kullanarak bir veya daha çok shapeye referans veremezsiniz.
Ne yapmak istediğinizi açıklarsanız, değişik alternatifler buluna bilir.

 

[Levent Menteşoğlu]

sizin tafsiye etiğinizin biraz farklısı .... "*" karakteri kullanıla bilirmi?
if Left(Nesne.Name, 5) = "Menü_" Then yerine if Nesne.Name = "Menü_" & "*" Then

Instr fonksiyonunu kullanın. Örneğin;

if instr(Nesne.name,"Menü")>0 then

 

[ikikan]

Instr fonksiyonunu kullanın. Örneğin;

if instr(Nesne.name,"Menü")>0 then

Çok Teşekkürler aradığım tamda buydu