Word VBA: Belgedeki tüm resimleri aynı boyuta ayarla

Uzun yıllar önce(2015) donanimhaber forum sitesindeki sorulara cevap vermek için Word VBA makroları yazmıştım. Forumda cevap olarak verdiğim kodları gözden geçirip düzenledim ve burada yayınlıyorum.

Soru 1

Diyelim ki 80 sayfalık bir belge var elimizde ve her bir sayfada küçük birer adet resim var. Yani toplam 80 resim. Ben bunların her birini tek tek düzenleyerek sayfanın tamamına yaymadan, toplu ve otomatik olarak sayfanın tamamını kaplayacak şekilde nasıl yayarım?

Cevap 1

Aşağıdaki VBA makroyu kullanabilirsiniz. Alttaki kodlar tüm resimlerin genişliğini 10cm'e ayarlar.
genislik = 10 'cm
satırındaki 10 sayısını değiştirebilirsiniz.

'Mesut Akcan
'mesutakcan.blogspot.com
'Belgedeki tüm resimlerin genişliğini 10 cm'ye ayarlar
'Yükseklik orantılı değişir
Sub GenislikAyarla()
	Dim shp As InlineShape
	Dim genislik As Double
	genislik = 10 'cm
	Application.ScreenUpdating = False
	For Each shp In ActiveDocument.InlineShapes
		With shp
				.LockAspectRatio = msoTrue 'en/boy Orantısı sabit
				'.Height = (.Width / .Height) * CentimetersToPoints(genislik)
				.Width = CentimetersToPoints(genislik)
		End With
		DoEvents
	Next
	Application.ScreenUpdating = True
	MsgBox "İşlem Tamam!"
End Sub

Soru 2

Word VBA makro kodları nasıl çalıştırılır?

Cevap 2

Word programındayken, ALT+F11e bas.

Menüden Insert / Module tıkla. Açılan kod penceresine kodu ekle.

Word programında makro çalıştırmak için ALT+F8e bas makro adını seç. Çalıştır tıkla.

Soru 3

Üstteki makro sadece genişliği değiştiriyor. Ben belgede bulunan tüm resimlerin genişliğini 7, yüksekliğini 5 olarak ayarlamak istiyorum. Bunun için makro var mı?

Cevap 3

Aşağıdaki makroyu kullanabilirsiniz. Eğer orijinal resimleriniz 7x5 oranında değilse sünme olabilir.

'Mesut Akcan
'mesutakcan.blogspot.com
'Belgedeki tüm resimlerin genişliğini 7cm,
'yüksekliğini 5 cm'ye ayarlar
Sub GenislikVeYukseklikAyarla()
	Dim shp As InlineShape
	Dim genislik As Double
	Dim yukseklik As Double
	
	genislik = 7 'cm
	yukseklik = 5 'cm
	
	Application.ScreenUpdating = False
	For Each shp In ActiveDocument.InlineShapes
		With shp
			.LockAspectRatio = msoFalse 'en/boy Orantısı sabit değil
			.Height = CentimetersToPoints(yukseklik)
			.Width = CentimetersToPoints(genislik)
		End With
	Next
	Application.ScreenUpdating = True
	MsgBox "İşlem Tamam!"
End Sub

Soru 4

Bu makroyu çalıştırmada sorunum yok lakin makroyu Word'e kalıcı olarak nasıl ekleriz. Word her açılışında makroyu çalıştırabileyim.

Cevap 4

Word'ü açın. ALT+F11e basın. Ctrl+R ile Project bölmesini açın.
Bu bölmede Normal yazan proje adını seçin.
Menüden Insert / Module tıklayın.
Açılan kod penceresine makro kodunu ekleyin.
Ctrl+S ile kaydedin.

Artık makroyu her dosyaya eklemeye gerek olmadan kullanabilirsiniz.

Soru 5

Verilen kodları değiştirerek kullanmaya çalıştım ama başarılı olamadım.
Word dosyama eklediğim tüm resimlerin 3,47 inç 2,48 inç olmasını istiyorum. Bunun için gereken makro konusunda yardımcı olabilir misiniz?

Cevap 5

Aşağıdaki makro kodunu kullanın.

'Mesut Akcan
'mesutakcan.blogspot.com
'Belgedeki tüm resimlerin genişliğini 3.47 inç,
'yüksekliğini 2.48 inç olarak ayarlar
Sub GenislikVeYukseklikAyarla_2()
	Dim shp As InlineShape
	Dim genislik As Double
	Dim yukseklik As Double
	
	genislik = 3.47 'inç
	yukseklik = 2.48 'inç
	
	Application.ScreenUpdating = False
	For Each shp In ActiveDocument.InlineShapes
		With shp
			.LockAspectRatio = msoFalse 'en/boy Orantısı sabit değil
			.Height = InchesToPoints(yukseklik)
			.Width = InchesToPoints(genislik)
		End With
	Next
	Application.ScreenUpdating = True
	MsgBox "İşlem Tamam!"
End Sub

Office VBA Çince menü sorunu ve çözümü

Yayınlama: 11/5/2020

Güncelleme: 8/9/2023

Türkçe Microsoft Ofis 2016 veya sonrasını yüklediğimizde Word, Excel, Powerpoint ... program menülerinde Türkçe menü ile karşılaşırız ancak ALT+F11 ile VBA (Visual Basic for Application) Editörünü açtığımızda aşağıdaki resimde de görüldüğü gibi Çince mi Japonca'mı olduğu belli olmayan bir menü dili ile karşılaşabiliriz.

Ben, AutoCAD'e VBA modülü kurduktan sonra bu sorunla karşılaşıyorum. AutoCAD'iniz yoksa, başka bir programın kurulumu da bu soruna neden olabilir.

Bu sorun sistemin çalışmasına engel olmamaktadır. Ancak Çince bilmiyorsanız menülerde ne yazdığını anlayamayacaksınız.

Sorunun çözümü için 2 yol var.

1. yol:

Aşağıdaki adımları sırasıyla uygulayın.

• Çalışan bir Office programı varsa kapatın.
• Sisteminizdeki
  C:\Program Files\Common Files\microsoft shared\VBA\VBA7.1\2052
  klasörünü açın içindeki dosyaları yedekleyin.
• C:\Program Files\Common Files\microsoft shared\VBA\VBA7.1\1033
  klasörünü açın.
• Klasör içindeki dosyaları kopyalayın.
• C:\Program Files\Common Files\microsoft shared\VBA\VBA7.1\2052
  klasörünü açıp yapıştırın.

Office programlarından herhangi birinde VBA editörünü açarak değişikliği kontrol ediniz.

C:\Program Files\Common Files\microsoft shared\VBA\VBA7.1\1033

klasörü bulunmuyorsa Office 2016 VBA Çince Menü Sorunu ve Çözümü.rar dosyasını indirin.

Dosyayı bir klasöre açın.
İndirdiğiniz dosyadaki 1033 klasörü içindeki dosyaları (VBE7INTL.DLL,VBEUIINTL.DLL)
2052 klasörü içine kopyalayın.

2. yol:

• Açıksa VBA kullanan programları kapatın.
• C:\Program Files\Common Files\microsoft shared\VBA\VBA7.1 klsörü içeriğini yedekleyin.
• Klasör içeriğini silin.
• VBA kullanan programları açın. Excel, AutoCAD vs...
• C:\Program Files\Common Files\microsoft shared\VBA\VBA7.1 klasör içeriği yeniden oluşacak ve sorun çözülecek.

Excel: Özel Otomatik Liste Oluşturma

 

Excelde hazır otomatik listeler var. Örneğin Günler.

Hücrenin birine Pazartesi yazıp yana ya da aşağı doğru doldurduğunuzda haftanın günleri sıralanacaktır.

Günler listesi gibi kendimiz de otomatik özel listeler oluşturabiliriz. Bu videoda bu işlemin nasıl yapıldığı açıklanmıştır.

PowerPoint sunusu pencere ile gösterilsin. Tam ekran gösterilmesin

PowerPoint sunusunu başlattığımızda varsayılan olarak tam ekran olarak gösterilir.
İzleyicilere sunuyu göstermek istiyorsak bu normal bir durumdur ancak hem slaytı göreyim hem de bilgisayarda başka bir uygulamayı takip edeyim derseniz sunuyu pencere modunda başlatabilirsiniz.

Bu işlem için aşağıdaki ayarları yapmamız gerekir.


Menüden Slayt Gösterisi / Slayt Gösterisi Ayarla tıklanır
Açılan pencerede Gösteri türü olarak Kişi göz atacak (pencere) ayarı seçilir. Tamam tıklanır.
Artık slayt başlatıldığında pencere içinde gösterilecektir. Pencere boyutunu değiştirebilirsiniz.

PowerPoint akcanSoft Logo intro

Slayt PowerPoint 2013 ile hazırlanmıştır.
Powerpoint ile mp4 Video çıktısı alındı
Sesler Sony Vegas ile mp4 videoya eklendi.
wav ses dosyası sony vegas ile renderlendi.
Sesli video sony vegas ile renderlendi.

Proje dosyası video açıklamalarındadır.

LOGO akcansoft.com'a özeldir başka yerde kullanmayınız.