2008-09-24 32 views
16

Muhtemelen çok aptalca bir soru ama bir nesneyi PowerPoint'te nasıl yeniden adlandıracağımı anlayamıyorum. Örneğin, tüm grafiklerim varsayılan olarak "Grafik 1" vb. Olarak adlandırılır. Birisi bana yardımcı olabilir mi? ? Teşekkürler!PowerPoint'te Nesneleri Yeniden Adlandırma

+1

Olası yinelenen [PowerPoint slayt içinde bir nesneyi adlandırmak nasıl?] (Http://stackoverflow.com/questions/3074209/how-to-name-an-object-within-a-powerpoint- slayt) – alextansc

cevap

33

PowerPoint 2007'de bunu Seçim bölmesinden yapabilirsiniz.

Seçim bölmesini göstermek için, şeritteki Ana Sayfa sekmesine ve ardından Düzenle'ye ve ardından 'Seçim Bölmesi ...' seçeneğine tıklayın. Seçim bölmesi sağ tarafta açılır. (Veya CTRL + F10 tuşlarına basın)

Bir nesneyi yeniden adlandırmak için, önce nesneyi seçin ve sonra Seçim bölmesindeki nesne adına çift tıklayın ve yeni nesne adını yazabilirsiniz.

+0

Ne yazık ki, PowerPoint 2003 ... –

+0

Umh, PP 2003 yok. Üzgünüz. –

+0

Bu, hayatımı kurtardı. Neden bu kadar gizli? +10 animasyonlarla oynayınca ve hepsine şöyle denir: group1, group2 vb. MS'in buraya adım atması gerekiyor. – Syska

0

Yardımlarınız için teşekkürler ama aslında ben sadece VBA kullanarak yapıyorum ...

ActiveWindow.Selection.ShapeRange(1).Name = "newname" 

Alkış

1

(Bu cevap, sen sadece geliştirme sırasında daha anlamlı isimler atayarak varsayar diğer kod böylece Nesneleri referans veren daha okunabilir olabilir).

Aşağıdaki kodu aşağıya bir alt alana koyun, sonra söz konusu slaydı kullanarak çalıştırın. Her şekil sırayla seçilecektir, böylece hangi şeklin referans alındığını görebilirsiniz. Bir giriş kutusu size geçerli ismi söyleyecek ve yeni bir isim isteyecektir. Sıfır uzunluğundaki bir girişi iptal ederseniz veya iptal ederseniz, eski isim yerinde kalır. Bu kodda ad giriş doğrulaması yoktur, bu nedenle yalnızca geçerli adlar yazdığınızdan emin olun. Bir kez çalıştırdıktan sonra, ilk turda yazdığınız adların, hedeflediğiniz nesneye uygulandığını kontrol etmek için tekrar çalıştırabilirsiniz.

Döngü geçerli slayda bulunan tüm nesneleri kapsayacaktır, böylece birden çok slayt işlemek istiyorsanız, bunu her slayda ayrı ayrı çalıştırmanız gerekir. Slayt üzerindeki her nesne göz önünde bulundurulur: Başlık, çizim nesneleri, gruplar, katıştırılmış resimler, denklemler, vb. - İlgilendiğiniz nesneler için yeni bir ad yazmayın.

Gelişiminiz bittikten sonra, en iyi (Özel Alt) gizleyin veya bu kodu silin, böylece kullanıcılarınız yanlışlıkla nesne adlarını değiştirmez.

Dim s As Integer, NewName As String 

With ActiveWindow.Selection.SlideRange 
    For s = 1 To .Shapes.Count 
     .Shapes(s).Select ' So you can see the object in question 
     NewName = InputBox(.Shapes(s).Name) ' Tell what current name it is and ask for new name 
     If Len(NewName) > 0 Then .Shapes(s).Name = NewName ' If you typed a new name, apply it 
    Next s ' 1 To .Shapes.Count 
End With ' ActiveWindow.Selection.SlideRange 
ait
İlgili konular