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

Word: Aynı belgede yatay ve dikey sayfalar yapma

Yayınlama: 22/12/2013

Güncelleme: 19/11/2023

Bir Word belgesinde sayfa ayarlarında yapılan değişiklikler genellikle tüm sayfalara uygulanır. Ancak, belirli durumlarda bir veya birkaç sayfanın diğerlerinden farklı bir düzen içermesi gerekebilir. Örneğin, sayfa yapısının normalde dik olduğu bir belgede, belirli bir sayfanın yatay olması istenebilir.

Bu tür durumları yönetmek için sayfaları bölümlendirmek gerekir. İşlem şu adımları içerir:

• İmleci bölüme ayrılacak sayfanın başına getirin, örneğin, 2. sayfanın başı (eğer 2. sayfa yoksa, 1. sayfanın sonuna) veya istenen konumda (bu durumda konumdan sonraki içerikler bir sonraki sayfaya taşınır).
• Menüden;
  SAYFA DÜZENİ / KESMELER / SONRAKİ SAYFA (Word 2013)
  EKLE / KESME / SONRAKİ SAYFA (Word 2003)
  seçeneğine tıklayın.

• Bu adımdan sonra belge, imleç öncesi ve sonrası olmak üzere iki bölüme ayrılır. Ayrıca, ihtiyaç duyulursa başka bölümler ekleyebilirsiniz.

Artık her bir bölümü diğerlerinden bağımsız olarak sayfa yapısı ayarlayabilirsiniz.

Örneğin, 2. bölümü yatay yapmak için:

• Menüden;
  SAYFA DÜZENİ / YÖNLENDİRME / YATAY (Word 2013)
  DOSYA/ SAYFA YAPISI / KENAR BOŞLUKLARI / YATAY  (Uygulama yeri: Bu bölüme) seçeneğine tıklayın (Word 2003).

AutoCAD VBA. Excele veri yaz-3

VBA kodlarıyla ofis programlarına bağlantı kurulabilir ve programla ilgili birçok işlem yaptırılabilir.

AutoCAD VBA'dan Excel'e bağlantı kurulabildiği gibi tersi de mümkündür

Hatta birçok uyumlu Windows programı birbiri ile bağlanıp kodlarla işlemler yapabilir.

Bu videoda AutoCAD VBA ile Excel'e bağlanmayı ve veri aktarmayı göstermeye devam ediyorum.

• Excele sayfa ekle
• Excel sayfası silme
• AutoCAD çizim nesne adlarını Excele yaz
• AutoCAD çizim alanındaki çizgilerin uzunluklarını ve toplamını Excele yaz
• Excel dosyasını aç

Videoda kullanılan VBA kodları:

'Mesut Akcan
'https://mesutakcan.blogspot.com
'https://youtube.com/mesutakcan
'makcan@gmail.com

Sub excelDosyaAc2()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'Excel uygulamasını temsil eden nesne
	Dim wb As Excel.Workbook 'Excel çalışma kitabını temsil eden nesne

	Set xla = Excel.Application
	xla.Visible = True  'uygulamayı ekranda göster

	Set wb = xla.Workbooks.Open("c:\test\test2.xlsx") 'dosyayı excel ile aç
End Sub

Sub excelDosyaAc1()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Visible = True 'ekranda excel nesnesini göster

	Dim dosya As Excel.Workbook 'excel çalışma kitabı nesnesi
	Set dosya = xla.Workbooks.Open("c:\test\test1.xlsx") 'dosyayı excel ile aç
End Sub

Sub exceleYaz6()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar

	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster
   
	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	Set sayfa = xla.ActiveSheet
	sayfa.Name = "Liste"

	Dim ent As AcadEntity 'AutoCad Varlık

	For Each ent In ThisDrawing.ModelSpace 'Çizim alanındaki tüm varlıklar
		If ent.ObjectName = "AcDbLine" Then
			satir = satir + 1
			uz = ent.Length
			sayfa.Cells(satir, 2) = uz
			toplamUzunluk = toplamUzunluk + uz
		End If
	Next

	sayfa.Cells(satir + 1, 1).Value = "TOPLAM:"
	sayfa.Cells(satir + 1, 2).Value = toplamUzunluk
	sayfa.Cells(satir + 1, 2).Font.color = vbRed

	sayfa.SaveAs "c:\TEST\test2.xlsx" 'Dosyaya kaydet
End Sub

Sub exceleYaz5()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar

	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster
   
	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	'Son sayfadan sonra ekle
	Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets(xla.Worksheets.Count))
	sayfa.Name = "TEST"

	Dim ent As AcadEntity 'AutoCad Varlık

	For Each ent In ThisDrawing.ModelSpace 'Çizim alanındaki tüm varlıklar
		satir = satir + 1 'satır numarasını 1 arttır
		sayfa.Cells(satir, 1).Value = ent.ObjectName 'hücreye nesne adını yaz
	Next
	sayfa.SaveAs "c:\TEST\test1.xlsx" 'Dosyaya kaydet
End Sub

Sub exceleYaz4()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar

	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster
   
	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	'Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets(xla.Worksheets.Count)) 'Son sayfadan sonra yeni sayfa ekle

	'2. sayfadan sonra ekle
	Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets(2))
	sayfa.Name = "TEST"

	'TEST sayfasından sonra ekle
	Set sayfa = xla.Worksheets.Add(After:=xla.Worksheets("TEST"))
	sayfa.Name = "DENEME"

	'TEST sayfasından önce ekle
	Set sayfa = xla.Worksheets.Add(Before:=xla.Worksheets("TEST"))
	sayfa.Name = "HESAP"

	sayfa.Delete

	Set sayfa = xla.Worksheets("TEST")
	sayfa.Delete 'sayfa sil

	xla.Worksheets("DENEME").Delete 'sayfa sil
End Sub

Sub exceleYaz3()
	'2. yöntem: Geç bağlanma. Late Binding

	Dim xla As Object 'nesne için değişken tanımla
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Visible = True 'ekranda excel nesnesini göster

	Dim wb As Object 'nesne için değişken tanımla
	Set wb = xla.Workbooks.Add 'Yeni dosya oluştur.

	Dim sayfa As Object 'nesne için değişken tanımla
	Set sayfa = wb.Worksheets.Add 'yeni dosya oluştur
	sayfa.Name = "TEST" 'sayfa adını değiştir.
	sayfa.Cells(4, 3) = "Merhaba" 'satır 4, sütun 3'e Merhaba yaz
End Sub

Sub exceleYaz2()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster

	'xla.Worksheets.Add 'yeni excel sayfası ekle

	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	Set sayfa = xla.Worksheets.Add 'yeni excel sayfası ekle

	sayfa.Name = "TEST" 'sayfa adını değiştir

	Set sayfa = xla.Worksheets(2) 'excel 2. sayfa
	sayfa.Activate 'sayfayı aktif et

	With sayfa.Range("B3")
		.Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
		.Interior.color = vbRed 'zemin rengi kırmızı
		.Font.color = vbWhite 'yazı rengi beyaz
		.Font.Bold = True 'kalın yazı
		'.Select 'B3 hücresini seç
	End With
End Sub

Sub exceleYaz1()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster

	With xla.Application.Range("B3")
		.Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
		.Interior.color = vbRed 'zemin rengi kırmızı
		.Font.color = vbWhite 'yazı rengi beyaz
		.Font.Bold = True 'kalın yazı
		.Select 'B3 hücresini seç
	End With
	xla.Quit 'Exceli kapat
End Sub

AutoCAD VBA. Excele veri yaz-2

VBA kodlarıyla Microsoft Office programlarına bağlantı kurulabilir ve programla ilgili birçok işlem yaptırılabilir.

AutoCAD VBA'dan Excel'e bağlantı kurulabildiği gibi tersi de mümkündür

Hatta birçok uyumlu Windows programı birbiri ile bağlanıp kodlarla işlemler yapabilir.

Bu videoda AutoCAD VBA ile Excel'e bağlanmayı ve veri aktarmayı göstermeye devam ediyorum.

Excel ile bağlantı kurmak için 2 yöntem var.

1) Erken bağlama. Early Binding

2) Geç bağlama. Late Binding

Yöntemlerin avantaj ve dezavantajları

Erken bağlama:

Avantajları:

• Çalışması daha hızlıdır.
• Intellisense(Akıllı kod tamamlama) bağlanan nesnelerde kullanılabildiği için kod yazımı daha kolaydır.
• Programın başlangıcında tüm değişkenlere değer atama işlemini yapar. Bu nedenle, programın bellek kullanımı artabilir.

Dezavantajları:

• Referans eklenmelidir. Ekli değilse çalışmaz.

Geç bağlama:

Avantajları:

• Referans eklemek gerekli değildir. Kullanıcının bir işlem yapması gerekmez.
• Bellek kullanımı verimlidir.

Dezavantajları:

• Nesneye bağlanma çalışma zamanında gerçekleştiği için yavaş çalışır.
• Intellisense(Akıllı kod tamamlama) bağlanan nesnelerde çalışmaz. Bu yüzden kod yazmak zorlaşır.

Videoda kullanılan VBA kodları:

Sub exceleYaz3()
	'2. yöntem: Geç bağlanma. Late Binding
	Dim xla As Object 'nesne için değişken tanımla
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Visible = True 'ekranda excel nesnesini göster

	Dim wb As Object 'nesne için değişken tanımla
	Set wb = xla.workbooks.Add 'Yeni dosya oluştur.

	Dim sayfa As Object 'nesne için değişken tanımla
	Set sayfa = wb.worksheets.Add 'yeni dosya oluştur
	sayfa.Name = "TEST" 'sayfa adını değiştir.
	sayfa.cells(4, 3) = "Merhaba" 'satır 4, sütun 3'e Merhaba yaz

End Sub

Sub exceleYaz2()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster

	'xla.Worksheets.Add 'yeni excel sayfası ekle

	Dim sayfa As Excel.Worksheet 'excel sayfası nesnesi
	Set sayfa = xla.worksheets.Add 'yeni excel sayfası ekle

	sayfa.Name = "TEST" 'sayfa adını değiştir

	Set sayfa = xla.worksheets(2) 'excel 2. sayfa
	sayfa.Activate 'sayfayı aktif et

	With sayfa.Range("B3")
		.Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
		.Interior.color = vbRed 'zemin rengi kırmızı
		.Font.color = vbWhite 'yazı rengi beyaz
		.Font.Bold = True 'kalın yazı
		'.Select 'B3 hücresini seç
	End With

End Sub

Sub exceleYaz1()
	'1. yöntem: Erken bağlanma. Early Binding
	'Tools / References / Microsoft Excel xx.x Object Library ekle

	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda excel nesnesini göster

	With xla.Application.Range("B3")
		.Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
		.Interior.color = vbRed 'zemin rengi kırmızı
		.Font.color = vbWhite 'yazı rengi beyaz
		.Font.Bold = True 'kalın yazı
		.Select 'B3 hücresini seç
	End With
	xla.Quit 'Exceli kapat
End Sub

AutoCAD VBA. Excele veri yaz-1

VBA kodlarıyla Microsoft Office programlarına bağlantı kurulabilir ve programla ilgili birçok işlem yaptırılabilir.

AutoCAD VBA'dan Excel'e bağlantı kurulabildiği gibi tersi de mümkündür.

Hatta birçok uyumlu Windows programı birbiri ile bağlanıp kodlarla işlemler yapabilir.

Bu videoda AutoCAD VBA ile Excel'e bağlanmayı ve veri aktarmayı gösterdim.

Excel ile bağlantı kurmak için 2 yöntem var.

1. yöntem: Referans kullanmak. Erken bağlanma(Early Binding)

2. yöntem: Referans kullanmadan kod ile bağlanma. Geç bağlanma(Late Binding)

İki yöntemin de avantaj ve dezavantajları var.

Bu videoda 1. yöntem ile Excele nasıl bağlanacağı gösterildi.

Videoda kullanılan VBA kodları:

Sub exceleYaz()
	Dim xla As Excel.Application 'excel uygulamasını örnek alan nesne oluştur
	Set xla = CreateObject("Excel.Application") 'excel nesnesi oluşturup değişkene aktar
	xla.Workbooks.Add 'Yeni dosya oluştur.
	xla.Visible = True 'ekranda göster 'excel nesnesini göster
	'xla.Application.Cells(3, 2).Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
	'xla.Application.Range("B3").Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
	With xla.Application.Range("B3")
		.Value = "Merhaba" 'Satır 3, Sütun 2'ye Merhaba yaz
		.Interior.color = vbRed 'zemin rengi kırmızı
		.Font.color = vbWhite 'yazı rengi beyaz
		.Font.Bold = True 'kalın yazı
		.Select 'B3 hücresini seç
	End With
	xla.Quit 'Exceli kapat
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.

Orijinal Office 2021 indir

Türkçe Orijinal Office 2021 sürümlerini aşağıdaki linkler ile indirebilirsiniz. Dosya türü IMG'dir. Dosyayı bir DVD'ye yazabileceğiniz gibi çift tıklayarak sanal DVD sürücü olarak da kullanabilirsiniz.

• Professional Plus:
  https://officecdn.microsoft.com/db/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/tr-tr/ProPlus2021Retail.img
• Professional:
  https://officecdn.microsoft.com/db/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/tr-tr/Professional2021Retail.img
• Home Student:
  https://officecdn.microsoft.com/db/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/tr-tr/HomeStudent2021Retail.img
• Home Business:
  https://officecdn.microsoft.com/db/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/tr-tr/HomeBusiness2021Retail.img

Excelde hücreye kesirli sayı girme

Yayınlama: 19/7/2016

Güncelleme: 23/6/2023

Excel hücresine 3/4 gibi bir kesirli sayı girmeye çalıştığınızda girilen veri o yılın "3 Nisan" tarihi olarak algılanıp hücreyi tarih formatına dönüştürür.

Eğer amacınız hücreye 3/4 girip bu şekilde kalmasını sağlamaksa, birkaç yol denenebilir.

1. yol:

Hücreye girilen değerin girildiği gibi görünmesi için önce ' (tırnak) işareti koyun.
'3/4 gibi.

Tırnak işareti hücrede görünmeyecektir. Bu bir metindir sayı olarak işlem görmez.

2. yol:

Önce hücre biçimini kesir olarak değiştirin.
Sonra hücreye kesirli değeri girin. 3/4 gibi ya da 2 3/4 (2 tam 3/4)

3. yol:

Hücre biçimlendirmeye gerek kalmadan hücreye tam sayılı kesir olarak girin
3/4 için 0 3/4 ( 0 boşluk 3/4 )
5 tam 5/16 için  5 5/16

2. ve 3. yol ile girilen veriler sayı olarak işlem görür.

Excel: Aktif satır ve sütun renklendirme

Yayınlama: 19/06/2016

Güncelleme: 04/05/2022

Makro kullanarak Excelde aktif satır ve sütunu renklendirerek hücre takibi yapmak kolaylaştırılabilir.
Bu işlem için üç farklı VBA makro kodu veriyorum.
Kodları deneyip uygun olanını kullanabilirsiniz.

Makro eklemek için önce aşağıda verilen makro kodunu kopyalayın.
Excelde sayfa adı(Sayfa1, Sayfa2 ...) üzerinde sağ tıklayın
Açılan menüde Kod görüntüle tıklayın.

AutoCAD ile VBA makro kullanımı #1

AutoCAD özelliklerini geliştirmek ve isteğe özel uygulamalar ve işlevler kazandırmak için VBA makroları kullanılabilir.

VBA kısaltmasının açılımı Visual Basic for Application(Uygulamalar için Visual Basic)dir.
BASIC öğrenilmesi ve kodlaması en kolay olan programlama dilidir. Microsoft Visual Studio Programlama seti içerisinde Microsoft Visual Basic bulunur. Bununla Windows uygulamaları geliştirip derleyebilir ve çalışabilir EXE dosyaya dönüştürebilirsiniz.

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.

Office: GELİŞTİRİCİ sekmesini gösterme

MS Office kurulduğunda varsayılan olarak Geliştirici Araç Çubuğu görünmez.

Aşağıdaki işlemler için Geliştirici sekmesine ihtiyaç duyulur.
Makro yazma.
Daha önce kaydettiğiniz makroları çalıştırma.
XML komutlarını kullanma.
ActiveX denetimlerini kullanma.
Microsoft Office programlarıyla kullanmak üzere uygulama oluşturma.
Microsoft Excel'de form denetimleri kullanma. vs.

Aşağıdakileri işlemleri yaptığınızda Geliştirici sekmesini şeride ekleyebilirsiniz:
Menüden Dosya / Seçenekler tıklayın
Solda Şeridi Özelleştir tıklayın.
Sağdaki listede Geliştirici seçeneğini işaretleyin.

Word 2010 için Advanced Mathematics eklentisi

Word 2010'da Matemetiksel formüller eklemek için Ekle menüsünde Denklem kullanılır.
Kısayol: ALT+SHIFT+=.
Word ile gelen denklem araçları birçok formülü ve matematiksel simgeyi eklememizi kolaylaştırıyor.

Buradaki özellikler yeterli bulmayanlar için Word 2010 için Advanced Mathematics eklentisi bulunuyor. Microsoft tarafından üretilmiş. Sitesinden indirip kurulumu yaptığınızda yeni menü ve özellikler ekleniyor.

Formülü hesaplama(Compute) ve Graph(Formül Grafiği) özellikleri kullanılmaya değer.

Üstteki gibi Word içine formül ve grafiğini ekleyebilirsiniz.

Bir başka formül ve grafiği. Grafiği eklemek için formül seçili iken Graph / Plot in 2D tıklayın.

Aynı formülün 3 boyutlu grafiği. Graph / Plot both sides in 3D tıklayın.

Eklenti sayfa adresi

Advanced Mathematics Eklentisini İndir 6.6 MB