VBA ile PowerPointte şekiller nasıl oluşturulur ve eklenir?

Bir şeklin özelliklerini ayarlama

Şekillerin çoğu biçimlendirme özelliği, doğrudan Shape  veya  ShapeRange nesnesine uygulanan özellikler tarafından ayarlanmaz   .  Bunun yerine, ilgili şekil nitelikleri , şeklin dolgusuyla ilgili tüm özellikleri içeren  FillFormat nesnesi veya  bağlantılı OLE nesnelerine özgü tüm özellikleri içeren LinkFormat nesnesi gibi ikincil nesneler altında gruplandırılır  . Bir şeklin özelliklerini ayarlamak için, önce ilgili şekil nitelikleri kümesini temsil eden nesneyi döndürmeniz, ardından döndürülen nesnenin özelliklerini ayarlamanız gerekir. Örneğin,  FillFormat nesnesini  döndürmek için  Fill özelliğini kullanırsınız ve  aşağıdaki örnekte gösterildiği gibi, belirtilen şeklin dolgu ön plan rengini ayarlamak için FillFormat nesnesinin ForeColor  özelliğini   ayarlarsınız  .

VB

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

Bir özelliği veya yöntemi aynı anda birden fazla şekle uygulama

Kullanıcı arayüzünde seçilen çeşitli şekillerle gerçekleştirebileceğiniz bazı işlemler vardır; örneğin, birkaç şekli seçebilir ve bunların tüm bireysel dolgularını aynı anda ayarlayabilirsiniz. Yalnızca tek bir şekil seçiliyken gerçekleştirebileceğiniz başka işlemler de vardır; örneğin, bir şekildeki metni yalnızca tek bir şekil seçiliyse düzenleyebilirsiniz.

Visual Basic'te özellikleri ve yöntemleri bir dizi şekle uygulamanın iki yolu vardır. Bu iki yol, aynı işlemi kullanıcı arayüzünde gerçekleştirip gerçekleştiremeseniz de, tek bir şekil üzerinde gerçekleştirebileceğiniz herhangi bir işlemi çeşitli şekillerde gerçekleştirmenize olanak tanır.

•  İşlem, kullanıcı arabiriminde seçilen birden çok şekil üzerinde çalışıyorsa, aynı işlemi Visual Basic'te , çalışmak istediğiniz şekilleri içeren  bir ShapeRange koleksiyonu oluşturarak ve uygun özellikleri ve yöntemleri doğrudan ShapeRange koleksiyonuna uygulayarak gerçekleştirebilirsiniz   .

• İşlem, kullanıcı arabiriminde seçilen birden çok şekil üzerinde çalışmıyorsa, Visual Basic'te, Shapes koleksiyonunda  veya  çalışmak   istediğiniz şekilleri içeren ShapeRange koleksiyonunda döngü yaparak ve uygun özellikleri uygulayarak işlemi yine de gerçekleştirebilirsiniz. ve  koleksiyondaki bireysel  Shape nesnelerine yönelik yöntemler.

Shape  nesnesine ve  ShapeRange koleksiyonuna uygulanan birçok özellik ve yöntem,   belirli türdeki şekillere uygulandığında başarısız olur. Örneğin  TextFrame  özelliği, metin içeremeyen bir şekle uygulandığında başarısız olur. ShapeRange  koleksiyonundaki her şekle belirli bir özelliğin veya yöntemin uygulanabileceğinden  emin değilseniz  , özelliği veya yöntemi ShapeRange  koleksiyonuna uygulamayın. Bu özelliklerden veya yöntemlerden birini bir şekil koleksiyonuna uygulamak istiyorsanız, özelliği veya yöntemi uygulamadan önce koleksiyonda döngü yapmalı ve her bir şekli test ederek bunun uygun bir şekil türü olduğundan emin olmalısınız.

ShapeRange koleksiyonuna özellik veya yöntem uygulama

Kullanıcı arayüzünde seçilen birden fazla şekil üzerinde aynı anda bir işlem gerçekleştirebiliyorsanız, bir  ShapeRange  koleksiyonu oluşturarak ve ardından buna uygun özellikleri veya yöntemleri uygulayarak programatik eşdeğerini yapabilirsiniz. Aşağıdaki örnek, "Büyük Yıldız" ve "Küçük Yıldız" adlı Otomatik Şekilleri içeren bir şekil aralığı oluşturur ve bunlara bir degrade dolgu uygular ve bunlara bir degrade dolgu uygular.myDocument

VB

Set myDocument = ActivePresentation.Slides(1) 
Set myRange = myDocument.Shapes _ 
    .Range(Array("Big Star", "Little Star")) 
myRange.Fill.PresetGradient msoGradientHorizontal, _ 
    1, msoGradientBrass

Aşağıda, özelliklerin ve yöntemlerin bir ShapeRange koleksiyonuna uygulandığında nasıl davrandığına ilişkin genel yönergeler yer almaktadır   .

• Koleksiyona bir yöntem uygulamak, yöntemi   o koleksiyondaki her bir Shape nesnesine uygulamaya eşdeğerdir.

• Koleksiyonun bir özelliğinin değerini ayarlamak, o aralıktaki her bir şeklin özelliğinin değerini ayarlamakla eşdeğerdir.

• Koleksiyonun bir sabit döndüren özelliği, koleksiyondaki tüm şekillerin o özellik için aynı değere sahip olması durumunda, koleksiyondaki tek bir şeklin özelliğinin değerini döndürür. Koleksiyondaki tüm şekiller özellik için aynı değere sahip değilse "karışık" sabiti döndürür.

• Basit bir veri türü ( Long ,  Single veya  String gibi) döndüren koleksiyonun bir özelliği,  koleksiyondaki tüm şekillerin o özellik için aynı değere sahip olması durumunda, tek bir şeklin özelliğinin değerini döndürür.

• Bazı özelliklerin değeri yalnızca koleksiyonda tam olarak bir şekil varsa döndürülebilir veya ayarlanabilir. Koleksiyonda birden fazla şekil varsa çalışma zamanı hatası oluşur. Bu genellikle, kullanıcı arayüzündeki eşdeğer eylemin yalnızca tek bir şekille (bir şekildeki metni düzenlemek veya serbest bir biçimin noktalarını düzenlemek gibi eylemler) mümkün olduğu durumlarda, özelliklerin döndürülmesi veya ayarlanması durumunda geçerlidir.

Önceki yönergeler, ShapeRange koleksiyonunun FillFormat nesnesi  gibi  ikincil nesneleri altında gruplandırılan şekillerin özelliklerini ayarlarken de geçerlidir   . İkincil nesne, kullanıcı arayüzünde birden fazla seçili nesne üzerinde gerçekleştirilebilecek işlemleri temsil ediyorsa, nesneyi ShapeRange koleksiyonundan döndürebilir   ve özelliklerini ayarlayabilirsiniz. Örneğin, ShapeRange  koleksiyonundaki tüm şekillerin dolgularını temsil eden  FillFormat nesnesini  döndürmek için  Fill özelliğini kullanabilirsiniz   . Bu FillFormat nesnesinin özelliklerinin ayarlanması,  ShapeRange  koleksiyonundaki tüm ayrı şekiller için aynı özelliklerin ayarlanmasına neden olur   .

Shapes veya ShapeRange koleksiyonunda döngü yapma

Kullanıcı arayüzündeki çeşitli şekiller üzerinde aynı anda bunları seçip bir komut kullanarak bir işlem gerçekleştiremeseniz bile, eşdeğer eylemi Shapes  koleksiyonunda veya   oluşturduğunuz şekilleri içeren bir ShapeRange koleksiyonunda döngü yaparak programlı olarak gerçekleştirebilirsiniz.   Koleksiyondaki tek tek Shape nesneleri ile çalışmak ve uygun özellikleri ve yöntemleri uygulamak istiyorsunuz  . Aşağıdaki örnek, tüm şekiller arasında döngü yapar ve Otomatik Şekil olan her şekle metin ekler. ve Otomatik Şekil olan her şekle metin ekler.myDocument

VB

Set myDocument = ActivePresentation.Slides(1) 
For Each sh In myDocument.Shapes 
    If sh.Type = msoAutoShape Then 
        sh.TextFrame.TextRange.InsertAfter " (version 1)" 
    End If 
Next

Aşağıdaki örnek,  etkin pencerede seçili olan tüm şekilleri içeren ShapeRange  koleksiyonunu oluşturur ve koleksiyondaki metin içerebilecek her şekildeki metni ayarlar.

VB

For Each sh in ActiveWindow.Selection.ShapeRange
    If sh.HasTextFrame Then
        sh.TextFrame.TextRange = "Initially selected"
    End If
Next

Şekilleri bir şekil aralığında hizalama, dağıtma ve gruplandırma

 Bir şekil kümesini birbirine göre veya bunları içeren belgeye göre konumlandırmak için Hizala  ve  Dağıt yöntemlerini kullanın  .  Bir şekil kümesinden gruplandırılmış tek bir şekil oluşturmak için Grup  yöntemini veya  Yeniden Gruplandırma yöntemini kullanın  .