Օրինակ, դուք ստեղծել եք աղյուսակ և այն պատահականորեն տեղադրել եք աշխատաթերթում, ինչպես ցույց է տրված նկարում: Այժմ ես կներկայացնեմ VBA ՝ գծապատկերն արագ և ճշգրիտ և բացարձակ դիրքի հեշտությամբ տեղափոխելու համար:

1, Ընտրեք աղյուսակը, որի համար կսահմանեք բացակայության դիրքը և սեղմեք ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք VBA- ի ներքևում նոր մոդուլի պատուհանում:

VBA. Excel- ում գծապատկերի սահմանման կարգ սահմանիր

Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

ՆշումՎերը նշված կոդում Սահմանել xRg = միջակայք («D1:J13») նշանակում է տեղափոխել և տեղադրել գծապատկերը D1:J13 միջակայքում: Դուք կարող եք փոխել տիրույթը ըստ անհրաժեշտության:

3. Մամուլ F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:

Այժմ դուք կտեսնեք, որ գծապատկերը տեղափոխվել է այն ճշգրիտ դիրքը, որը դուք նշել եք VBA-ում: Տեսեք սքրինշոթը՝

Եթե ​​ունեք Kutools-ը տեղադրված Excel-ի համար, կարող եք կիրառել դրա զարմանալի գծապատկերային գործիքը. Սահմանեք գծապատկերի բացարձակ դիրքը գծապատկերը տեղափոխելու և չափափոխելու համար Excel-ում նշված տիրույթում:

1. Ընտրեք գծապատկերը, որը դուք կսահմանեք բացարձակ դիրք և սեղմեք Կուտոլս > Դիագրամներ > Գծապատկերային գործիքներ > Սահմանեք գծապատկերի բացարձակ դիրքը.

2. Բացվող երկխոսության մեջ նշեք այն դիրքը, որտեղ կտեղափոխեք գծապատկերը և սեղմեք կոճակը Ok կոճակը:

Այժմ ընտրված գծապատկերը տեղափոխվում է նշված դիրքով և միաժամանակ չափափոխվում է նշված տիրույթում: Տեսեք սքրինշոթը՝