[Çözüldü] En boy oranını kilitle

[ilirya4561]

Sevgili arkadaşlar.
Powerpointte "Resim Biçimi" sekmesi altındaki "Boyut" kısmında "En boy oranını kilitle" seçeneğindeki tik işaretini her seferinde kaldırmak zorunda kalıyorum. Bunu bir sefer kaldırıp bu değişikliği kaydetmenin yolu nedir?
Şimdiden teşekkürler.

[Tarkan VURAL]

Merhaba
Şurada bir makale var. Umarım yardımcı olur.
Resimler veya resimler eklemek için varsayılan çözünürlüğü

[ilirya4561]

Tarkan Bey selam.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Makaleyi açınca "hah.. galiba burası" dedim ama maalesef ki aradığım çözüm yok.
Görsel ekleyemedim.
Tekrar ilgilenebilirseniz sevinirim.

[Tarkan VURAL]

Belki regedit içerisinde bir değer ile varsayılan durumu değiştirilebilir. Biraz araştırdım lakin kaynak bulamadım. Ama bu mantıkta olabileceğini düşünüyorum.

[ilirya4561]

Teşekkürler

[erseldemirel]

Problemi tam anlayamadım ama belki bu kod yardımcı olur. Mantık şöyle ne kadar slayt varsa tüm slaytlardaki nesnelerin en-boy oranı kilidini kaldırır. Terside mümkün. Makro kodu olarak deneyiniz

Sub Test()
For Each slide In ActivePresentation.Slides
For Each shape In slide.Shapes
If shape.LockAspectRatio = msoTrue Then
shape.LockAspectRatio = msoFalse
End If
Next shape
Next slide
End Sub

[ilirya4561]

Ersel Bey selam.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Ardından da özür dilerim. Çünkü işlerimin yoğunluğu nedeniyle şimdi görebildim yanıtınızı.
Dediğiniz kodları kopyaladım. Powerpoint sayfasına Alt+F11 yapıp kod sayfasını açtım fakat kod sayfası aktif olmuyor. Başka bir çözümü var mı?

[erseldemirel]

Merhaba Alt+F11 doğru. Sonra module ekliyorsunuz. Bu kodu yapıştırıp ihtiyaç halinde yapıştırabilirsiniz.

[ilirya4561]

Ersel Demirel arkadaşım tekrar selam.
Dediğiniz gibi yapıp kodları modüle yapıştırdım. F8 tuşuna basıp çalıştırmak istedim. Fakat ilk satır (Sub Test) sarıya boyandı ve kodlar çalışmadı.
Müsait bir zamanınızda tekrar ilgilenebilirseniz sevinirim.
Şimdiden teşekkürler

[Murat OSMA]

Kodları modüle yapıştırıp F5'e basın.

[ilirya4561]

Sayın Murat Osma.
İşlem tamam. Çok teşekkür ederim.
Ersel Demirel arkadaşıma da tekrar tekrar teşekkür ederim.

[erseldemirel]

Rica ederm kolay gelsin