Овај водич ће показати како користити ВБА за центрирање текста у ћелији, хоризонтално и вертикално.
Можемо користити групу Поравнање на почетној траци у Екцелу за центрирање текста хоризонтално и вертикално у ћелији. Ако пишемо макро за обликовање текста, можемо поново створити ову функционалност помоћу ВБА кода.
Центрирајте текст хоризонтално
За хоризонтално центрирање текста у једној ћелији можемо користити следећи код:
123 | Подцентрални текст ()АцтивеЦелл.ХоризонталАлигнмент = клЦентерЕнд Суб |
Алтернативно, за хоризонтално центрирање текста у свакој ћелији изабраног опсега ћелија, можемо користити објект Одабир и учинити сљедеће:
123 | Подцентрални текст ()Селецтион.ХоризонталАлигнмент = клЦентерЕнд Суб |
Такође можемо променити поравнање удесно или улево помоћу клЛефт и клРигхт константе.
Да бисмо десно поравнали текст у ћелији, можемо користити следећи код:
123 | Суб РигхтАлигнТект ()АцтивеЦелл.ХоризонталАлигнмент = клРигхтЕнд Суб |
Центар текста вертикално
Центрирање текста вертикално је исто што и хоризонтално.
123 | ПодЦентерТектВертицал ()АцтивеЦелл.ВертицалАлигнмент = клЦентерЕнд Суб |
Као и центрирање текста вертикално преко избора:
123 | ПодЦентерТектВертикално ()Селецтион.ВертицалАлигнмент = клЦентерЕнд Суб |
Такође можемо променити текст у горњу или доњу ћелију или селекцију помоћу клТоп или клБоттом константе.
123 | Суб ТопАлигнВертицал ()АцтивеЦелл.ВертицалАлигнмент = клТопЕнд Суб |
Центрирајте текст хоризонтално и вертикално у исто време
Ако желимо да центрирамо текст хоризонтално и вертикално у исто време, постоји неколико начина на које то можемо учинити.
1234 | Под ЦентерБотх ()АцтивеЦелл.ХоризонталАлигнмент = клЦентерАцтивеЦелл.ВертицалАлигнмент = клЦентерЕнд Суб |
Алтернативно, да бисмо смањили понављање кода, можемо користити наредбу Витх и Енд Витх.
123456 | Под ЦентерБотх2 ()Витх Селецтион.ХоризонталАлигнмент = клЦентер.ВертицалАлигнмент = клЦентерЗавршитиЕнд Суб |
Горњи код ће се применити на све ћелије у Екцелу које су тада изабране.
Коришћење са и са завршетком са веома је ефикасно када у оквиру избора имамо много обликовања, попут спајања ћелија или промене оријентације.
12345678 | Суб МергеАндЦентер ()Витх Селецтион.ХоризонталАлигнмент = клЦентер.ВертицалАлигнмент = клБоттом.Оријентација = -36.МергеЦеллс = ТачноЗавршитиЕнд Суб |