drawing objelerini grup yapma problemi-lfn yardım

[f_desat]

Değerli Hocalarım,
Benim problemim belli aralıktaki çizim objeleri grup yapmak,
ekteki çalışmada çalışma sayfasındaki tüm çizimleri grup yapıyor.

benim istediğim ekteki aralık içinde kalan objelerin gruplanması
range("a1:d27"). alanı içindeki objeleri gruplamak.

desteğini esirgemeyen tüm arkadaşlara şimdiden teşekkürler.

 

[mancubus]

gruplamayı görmek için makrodan sonra herhangi bir nesnenin üzerine tıklamak yeterli

Sub NesneGrup()

Dim grpRng As Range
Dim shp As Shape
Dim grp()
Dim i As Long

With ActiveSheet
    Set grpRng = .Range("A1:D27")
    For Each shp In .Shapes
        If Not Intersect(shp.TopLeftCell, grpRng) Is Nothing Then
            ReDim Preserve grp(i)
            grp(i) = shp.Name
            i = i + 1
        End If
    Next
    .Shapes.Range(grp).Group
End With

End Sub

 

[f_desat]

Sayın mancubus Hocam,
desteğiniz için teşekkürler sorunum çözülmüştür.

Saygılarımla

Konuda kapanmıştır.

 

[mancubus]

rica ederim.