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

ExifTool: Fotoğrafların çekilme tarihine göre dosya adını değiştirme

Kullandığınız cihaz marka ve modeline göre çekilen fotoğraf ve vidolarınıza IMG_9999.JPG, DSCN_9999.JPG ... gibi otomatik isimler verilmektedir.
Bu dosya adlarını çekilme tarihine göre değiştirmek dosyaların aranıp bulunmasında kolaylık sağlayacaktır. Ayrıca çekildiği tarih ve saat merak edildiğinde dosya özelliklerine bakmaya da gerek kalmayacaktır.

Fotoğraf veya video dosya adı nasıl çekilme tarihine göre değiştirilir?

Bu iş için çeşitli program ve yöntemler var. Bu yazımda ExifTool programıyla bu işi yapacağız. İleriki zamanlarda diğer yöntem ve programlardan bahsedebilirim.

Exiftool nedir?

ExifTool Phil Harvey'in üzerinde çalıştığı ve geliştirdiği komut satırından çalışan bir program.
Bu program ile fotoğraf ve video dosyaların media bilgisi(exif) okunabilir, yazılabilir ve değiştirilebilir.
Çok sayıda fotoğraf ve video dosya formatını desteklemektedir.
Detaylı bilgi web sitesinden alınabilir.

ExifTool kurulumu

Öncelikle exiftool.exe dosyasını edinmemiz gerekir.
Web sitesinden son sürümü indirin.
İnen zipli dosyayı bir klasöre açın.
Zip içinden exiftool(-k).exe adlı bir dosya çıkacak.
Bu dosya adını exiftool.exe olarak değiştirin.
Komut satırından exiftool yazdığımızda her konumdan çalışması için exiftool.exe dosyasını C:\WINDOWS klasörüne taşıyın ya da kopyalayın.

Komutun Kullanımı:

Komut satırını(Komut istemi) açın. (Windows+R ardından CMD ve ENTER)

exiftool [*OPTIONS*] [-*TAG*...] [--*TAG*...] *FILE*...
exiftool [*OPTIONS*] -*TAG*[+-<]=[*VALUE*]... *FILE*...
exiftool [*OPTIONS*] -tagsFromFile *SRCFILE* [-*SRCTAG*[>*DSTTAG*]...] *FILE*...

Ayrıntılı bilgi exiftool yazıp entere basılarak alınabilir ya da web sitesine bakılabilir.

ExifTool ile dosya adını değiştirme

c:\resimler klasöründeki jpg dosyaların adını çekilme tarihine göre değiştir.

exiftool "-filename<${datetimeoriginal}" -d "%Y-%m-%d %H-%M-%S_%%f.%%e" c:\resimler\*.jpg

Fotoğrafların çekilme tarihine göre dosya adını değiştirme

ExifTool: Fotoğrafların çekilme tarihine göre dosya adını değiştirme sayfasındaki yazımda Exiftool komut satırı aracını kullanarak fotoğraf dosyalarını, fotoğraf çekilme tarihine göre değiştirmeyi açıklamıştım.

Bu yazımda ise aynı işlemi daha kullanışlı olan bir program olan Faststone Image Viewer programı ile nasıl yapıldığını açıklayacağım.

Program kurulu değilse www.faststone.org veya filehippo.com sitesinden indirip kurunuz.
Ticari kullanımlar haricinde ücretsizdir.

• Programı çalıştırın.
• Fotoğraflar fotoğraf çektiğiniz makinada ise hem dosyaları makinadan bilgisayara aktarıp hem de dosya adlarını değiştirebilmektedir. Fotoğrafları daha önceden bilgisayara aktardı iseniz sorun değil belirttiğiniz klasörlere de aynı işlemi uygulayabilirsiniz.
• Makinadan fotoğrafları indirmek(aktarmak) için araç çubuğundaki ilk simgeyi tıklayın ya da menüden File / Download Photos tıklayın.

Aşağıdaki pencere açılacak.

• Bu pencerede 1 numaralı yerden(Location) fotoğraf dosyaları konumunu belirtin. Eğer dosyalar bir klasörde ise 2 numaralı simgeden klasörü seçin.

AutoCAD dosya sürümünü değiştirme

AutoCAD dosya sürümü değiştirmenin 3 farklı yolu bu videoda açıklanıyor.

Dosya sürümü değişikliğine neden gerek duyulur?
AutoCAD bazı sürüm güncellemelerinde dosya kayıt formatında da değişikler yapmaktadır
Eski sürüm AutoCAD yeni sürüm AutoCAD'in dosyasını açamamaktadır.
Örneğin AutoCAD 2013 ve sonrası ile kaydedilen dosya AutoCAD 2007 de açılmayacaktır.
Aynı durum Ofis 2003 ve Ofis 2007de de vardır.
Bu yüzden dosya sürümü değişikli gerekmektedir.

AutoCAD Dosya Sürümünü Değiştirmek için birkaç yol var

1. Yeni sürüm AutoCAD ile
2. AutoCAD360.com ile (web sitesi kapanmıştır)
3. DWG TrueView ile

Word: Bul Değiştir ile bulunan sayının başına 0 ekleme

Word'de metin içinde bulunan sayıların başına 0 eklemek istersek Word'ün bul ve değiştir özelliğinden faydalanabiliriz.

Bul ve Değiştir'e kısayoldan erişmek için klavyeden CTRL+H tuşlarına basın.
Tüm seçenekler açık değilse Tüm seçenekler butonunu tıklayın.

Aranan kısmına:

<([0-9])*([0-9])>

Yeni değer kısmına:

0^&

yazın. Joker karakter kullan seçeneğini seçin.

Sonra tümünü değiştir ile bulunan tüm sayıların başına 0 eklenir.

Tek tek değiştirmek isterseniz Sonrakini bul ve Değiştir butonlarını kullanabilirsiniz.

<([0-9])*([0-9])>

joker karakterleri bir rakam ile başlayıp bir rakam ile biten metinleri bulur.

0^&

joker karakterlerinin açıklaması ise:

^&

kodu aranan metini temsil eder. 0 ise bulunanın başına 0 eklemek içindir.