Daire çaplarını küçültme

[ilirya4561]

Arkadaşlar selam.
1000 sayfanın üzerinde sunum hazırladım.
Bu sayfaların bir çoğunda 14 mm. çapında DAİRE şekilleri var.
Ben bunların çapını 10 mm olarak değiştirmek istiyorum.
Önemli olan şu :
Daire şekillerinin bulunduğu sayfalarda kare şekiller de var. Ben sadece daire şekillerinin çaplarını küçültmek istiyorum.
Şimdiden teşekkürler.

[erseldemirel]

Sunumlarda yani powerpointte tüm slaytları seçerseniz slaytların birinde yaptığınız değişiklik hepsi için geçerli olur. Tüm slaytlarda aynı nesne varsa: tüm slaytlar seçilir herhangi bir slayttaki nesneyi değiştirseniz tüm slaytlardaki o nesne değişir. Aksine bir ayar yoksa bunun olması lazım

[ilirya4561]

erseldemirel arkadaşım selam.
Öncelikle ilginize ve emeğinize teşekkür ederim ama o dediğiniz maalesef powerpointte olmuyor. Excelde oluyor.
"Hayır, oluyor" diyorsanız, siz bir deneyin olursa bana bilgi verirsiniz.
Tekrar teşekkür ederim.

[erseldemirel]

Selamlar. Evet baktım olmuyor. Sunumda daire nesnesi bulamadım. Genelde oval orada yükseklik genişlik vs var module ile belirleme yapılabilir. Diğer şöyle bir yaklaşım olurmu her slaytı değiştirmek yerine; ilk slaytta değişiklik yapılıp hepsine kopyalanabilir. Ekteki sunumda module var. İlk slayttaki birinci nesneyi bulup tüm slaytlara konum ve şekil bozmadan kopyalar. Deneyiniz.

Kod: Tümünü seç

Sub nesnekopyala()
Set firstSlide = ActivePresentation.Slides(1)
Set shp = firstSlide.Shapes(1) ' NESNE SIRA NO
shp.Copy
For Each sld In ActivePresentation.Slides
If sld.SlideIndex <> 1 Then
sld.Shapes.PasteSpecial DataType:=ppPasteShape
Set copiedShape = sld.Shapes(sld.Shapes.Count)
copiedShape.Left = shp.Left
copiedShape.Top = shp.Top
copiedShape.Width = shp.Width
copiedShape.Height = shp.Height
copiedShape.LockAspectRatio = shp.LockAspectRatio
copiedShape.Rotation = shp.Rotation
End If
Next sld
End Sub

[ilirya4561]

Sayın erseldemirel.
İyi niyetinize, ilginize ve emeğinize tekrar teşekkür ederim ancak sanırım siz sorumu tam anlamadınız.
Ben, daire şeklini tüm sayfalara kopyalamak istemiyorum. Sizin verdiğiniz kodlarda aynı daireyi her sayfaya yapıştırıyor.
Benim isteğim şöyle : 1000'in üzerindeki sayfada, her sayfada değişik konumda bulunan 14 mm çapındaki daire şekillerini 10 mm'ye düşürmek.
Tekrar teşekkürler.

[erseldemirel]

Tamam tekrar baktım yeniden module yaptım. Burada slaytlarda 1.4 cm çaplı ovali buluyor ki burada en boy aynı olunca bu bir daire bunları 1.0 cm yapıyor. Yanlız sunumda cm yok point var. Yaklaşık biraz bu değer

[ilirya4561]

İlginize ve emeğinize teşekkür ederim arkadaşım. Aradığım bu değildi. Sorun hallolldu..