[Yardım]  Makro ile yuvarlak çizme

Excel Grafikleri ile ilgili işlemler

Makro ile yuvarlak çizme

İleti#1)  mel5024 » 22 Mar 2017 16:12

500 mm çaplı sabit bir yuvarlak şeklimiz var. A1 hücresine 1 ile 5 arasında sayı yazdığımızda yazılan değer kadar yanına bir kutu açılacak. Bu kutulara da 1 ile 500 arası sayı yazdığımızda sabit olan yuvarlağın içine merkez noktası sabit kalacak şekilde yuvarlaklar çizilecek. Bu şekilde makro yazmak mümkün müdür?
Kullanıcı avatarı
mel5024
Yeni Başlamış
 
Kayıt: 22 Mar 2017 14:11
Meslek: Planlama
Yaş: 32
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Tekirdağ/ Çorlu

Cevap: Makro ile yuvarlak çizme

İleti#2)  hemso41 » 27 Mar 2017 16:14

Kutudan kastınız nedir?
A1 hücresine değer girdiğinde yuvarlak çizdirebiliriz.Örneği kendinize göre geliştirebilirsiniz
Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
   
                 t = ActiveCell.Top
                l = ActiveCell.Left
                h = ActiveCell.Height
                w = ActiveCell.Width
                min_dim = IIf(h > w, w, h)
                v_center = t + h / 2 - min_dim / 2
                h_center = l + w / 2 - min_dim / 2
                    ActiveSheet.Shapes.AddShape(msoShapeOval, h_center, v_center, min_dim, min_dim).Select
                    Selection.ShapeRange.Fill.Visible = msoFalse
                    With Selection.ShapeRange.Line
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(255, 0, 0)
                    .Transparency = 0
                    End With
                    With Selection.ShapeRange.Line
                    .Visible = msoTrue
                    .Weight = 2.25
                    End With
    End If
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 08:04
Meslek: BİLGİ İŞLEM
Yaş: 39
İleti: 406
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: Makro ile yuvarlak çizme

İleti#3)  mel5024 » 04 Nis 2017 08:47

Yardımlarınız için çok teşekkür ederim. Kutudan kastım A1 hücresine 1 ile 5 arasında bir sayı yazdığımda örneğin 2 yazarsam B1 ve C1 hücreleri çerçeve içine alınıp benden bir değer girmemi isteyecek. Excelde sabit olan yuvarlağın içine de yazdığım çaplara göre 2 adet daha yuvarlak çizecek.
Tekrardan teşekkür ederim.
Kullanıcı avatarı
mel5024
Yeni Başlamış
 
Kayıt: 22 Mar 2017 14:11
Meslek: Planlama
Yaş: 32
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Tekirdağ/ Çorlu


Forum Excel Grafik İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe