Ինչպե՞ս կենտրոնացնել նկարը Excel խցում:
Այս հոդվածը ցույց կտա ձեզ Excel- ի աշխատաթերթում նկարների բջիջների կենտրոն տեղափոխելու եղանակը, ինչպես ցույց է տրված նկարում:
Նկարը տեղափոխեք VBA կոդով բջիջի կենտրոն
Նկարը տեղափոխեք VBA կոդով բջիջի կենտրոն.
Խնդրում ենք արեք հետևյալը ՝ Excel- ում աշխատաթերթում նկարները բջիջների կենտրոն տեղափոխելու համար:
1. Բացեք աշխատաթերթը պարունակում է այն նկարները, որոնք անհրաժեշտ է կենտրոնացնել բջիջներում, այնուհետև սեղմել այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք VBA կոդը օրենսգրքի պատուհանում:
VBA կոդ. Նկարները տեղափոխեք աշխատանքային թերթում բջիջների կենտրոն
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
Notes:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. Սեղմեք F5 ծածկագիրը գործելու համար:
Այնուհետև նշված բոլոր նկարները կտեղափոխվեն որոշակի բջիջների կենտրոն, ինչպես ցույց է տրված նկարում:
Related Articles:
- Ինչպե՞ս ավտոմատ կերպով փոխել բոլոր նկարները Excel- ում բջիջներով տեղափոխելու և չափսերի համար:
- Ինչպե՞ս ստուգել, արդյոք բջիջը պարունակում է նկար Excel- ում:
- Ինչպե՞ս Excel- ում բջիջի մեջ դինամիկ կերպով տեղադրել նկարը կամ նկարը:
- Ինչպե՞ս մեծացնել պատկերը Excel- ում կտտացնելիս:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: