Daire çaplarını küçültme

Sunum dosyaları ile ilgili paylaşımlarınızı bu alanda yapabilirsiniz.
Cevapla
ilirya4561
Mesajlar: 40
Kayıt: Pzt Haz 26, 2023 5:51 pm
Lokasyon: İzmir
Meslek: Öğretim Görevlisi
Adınız: Kemal
Soyadınız: Kara

Daire çaplarını küçültme

Mesaj gönderen 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Daire çaplarını küçültme

Mesaj gönderen 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
Mesajlar: 40
Kayıt: Pzt Haz 26, 2023 5:51 pm
Lokasyon: İzmir
Meslek: Öğretim Görevlisi
Adınız: Kemal
Soyadınız: Kara

Re: Daire çaplarını küçültme

Mesaj gönderen 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Daire çaplarını küçültme

Mesaj gönderen 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
Mesajlar: 40
Kayıt: Pzt Haz 26, 2023 5:51 pm
Lokasyon: İzmir
Meslek: Öğretim Görevlisi
Adınız: Kemal
Soyadınız: Kara

Re: Daire çaplarını küçültme

Mesaj gönderen 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Daire çaplarını küçültme

Mesaj gönderen 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
Mesajlar: 40
Kayıt: Pzt Haz 26, 2023 5:51 pm
Lokasyon: İzmir
Meslek: Öğretim Görevlisi
Adınız: Kemal
Soyadınız: Kara

Re: Daire çaplarını küçültme

Mesaj gönderen ilirya4561 »

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