Çizgileri seçmek...

[turkuaz]

Bu forumda bir soru vardı. Ancak cevaplanmadı.
Örneğin:
5 tane çizgi (Line) çizdik.
Bunlardan boyu 10 cm olanları seçmek istiyoruz...
Nasıl yapacağız...

 

[smozgur]

turkuaz,

Excel çalışma sayfasına boyu 10 cm olan ve olmayan çizgiler çizdiniz ve 10 cm olanları makro aracılığıyla tanıyıp çoklu seçim yapmak istiyorsunuz.

Aşağıdaki kodu deneyebilirsiniz.

Sub SelectLines()
Dim sht As Worksheet
Dim shp As Shape
Dim arr()

    Set sht = ActiveSheet
    ReDim arr(0)
    For Each shp In sht.Shapes
        If shp.Type = 9 Then
            If shp.Width = Application.CentimetersToPoints(10) Then
                arr(UBound(arr)) = shp.Name
                ReDim Preserve arr(UBound(arr) + 1)
            End If
        End If
    Next shp
    If UBound(arr) = 0 Then Exit Sub
    ReDim Preserve arr(UBound(arr) - 1)
    sht.Shapes.Range(arr).Select
End Sub

10 cm kriteri bu şekilde karşılaştırabilinecek mi emin değilim fakat 10 cm'lik çizgilerden birini seçip sonra VBA'da Immediate (Debug) penceresinde aşağıdaki kodu yazıp Enter'e basarsanız

Print Selection.Width

kod içersinde aşağıda belirttiğim kod satırını göreceğiniz sayı ile değiştirebilir ve kodun doğru olarak çalışmasını sağlayabilirsiniz.

If shp.Width = Application.CentimetersToPoints(10) Then

Örnek verelim: immediate penceresinde gerekli kodu işlettikten sonra diyelim ki 254 gördünüz. Bu taktirde kod satırını aşağıdaki gibi değiştirin.

If shp.Width = 254 Then

Umarım yardımcı olur.

Suat

 

[turkuaz]

smozgur,
Sana ne kadar teşekkür etsem azdır. Beni büyük bir dertten kurtardınız..

sht.Shapes.Range(arr).Select

bu kısım önemliydi benim için...

 

[smozgur]

Yardımcı olabildiğime sevindim, turkuaz.

Suat