ВБА центар текст - поравнање ћелија (хоризонтално и вертикално)

Овај водич ће показати како користити ВБА за центрирање текста у ћелији, хоризонтално и вертикално.

Можемо користити групу Поравнање на почетној траци у Екцелу за центрирање текста хоризонтално и вертикално у ћелији. Ако пишемо макро за обликовање текста, можемо поново створити ову функционалност помоћу ВБА кода.

Центрирајте текст хоризонтално

За хоризонтално центрирање текста у једној ћелији можемо користити следећи код:

123 Подцентрални текст ()АцтивеЦелл.ХоризонталАлигнмент = клЦентерЕнд Суб

Алтернативно, за хоризонтално центрирање текста у свакој ћелији изабраног опсега ћелија, можемо користити објект Одабир и учинити сљедеће:

123 Подцентрални текст ()Селецтион.ХоризонталАлигнмент = клЦентерЕнд Суб

Такође можемо променити поравнање удесно или улево помоћу клЛефт и клРигхт константе.

Да бисмо десно поравнали текст у ћелији, можемо користити следећи код:

123 Суб РигхтАлигнТект ()АцтивеЦелл.ХоризонталАлигнмент = клРигхтЕнд Суб

Центар текста вертикално

Центрирање текста вертикално је исто што и хоризонтално.

123 ПодЦентерТектВертицал ()АцтивеЦелл.ВертицалАлигнмент = клЦентерЕнд Суб

Као и центрирање текста вертикално преко избора:

123 ПодЦентерТектВертикално ()Селецтион.ВертицалАлигнмент = клЦентерЕнд Суб

Такође можемо променити текст у горњу или доњу ћелију или селекцију помоћу клТоп или клБоттом константе.

123 Суб ТопАлигнВертицал ()АцтивеЦелл.ВертицалАлигнмент = клТопЕнд Суб

Центрирајте текст хоризонтално и вертикално у исто време

Ако желимо да центрирамо текст хоризонтално и вертикално у исто време, постоји неколико начина на које то можемо учинити.

1234 Под ЦентерБотх ()АцтивеЦелл.ХоризонталАлигнмент = клЦентерАцтивеЦелл.ВертицалАлигнмент = клЦентерЕнд Суб

Алтернативно, да бисмо смањили понављање кода, можемо користити наредбу Витх и Енд Витх.

123456 Под ЦентерБотх2 ()Витх Селецтион.ХоризонталАлигнмент = клЦентер.ВертицалАлигнмент = клЦентерЗавршитиЕнд Суб

Горњи код ће се применити на све ћелије у Екцелу које су тада изабране.

Коришћење са и са завршетком са веома је ефикасно када у оквиру избора имамо много обликовања, попут спајања ћелија или промене оријентације.

12345678 Суб МергеАндЦентер ()Витх Селецтион.ХоризонталАлигнмент = клЦентер.ВертицалАлигнмент = клБоттом.Оријентација = -36.МергеЦеллс = ТачноЗавршитиЕнд Суб
wave wave wave wave wave