Vba ကို အသုံးပြု၍ ဇယားများကို ဖျက်နည်း (ဥပမာများဖြင့်)

Excel ရှိဇယားများကိုဖျက်ရန် VBA တွင်အောက်ပါနည်းလမ်းများကိုသုံးနိုင်သည်။

နည်းလမ်း 1- အသုံးပြုနေသောစာရွက်မှ ဂရပ်ဖစ်အားလုံးကို ဖယ်ရှားပါ။

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

ဤအထူးမက်ခရိုသည် Excel ရှိ လက်ရှိအသုံးပြုနေသောစာရွက်မှဇယားများအားလုံးကို ဖယ်ရှားပါမည်။

နည်းလမ်း 2- အလုပ်စာအုပ်တစ်ခုလုံးမှ ဇယားအားလုံးကို ဖယ်ရှားပါ။

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

ဤအထူးမက်ခရိုသည် Excel workbook တစ်ခုလုံး၏ စာရွက်တစ်ခုစီမှ ဇယားအားလုံးကို ဖယ်ရှားမည်ဖြစ်သည်။

အောက်ဖော်ပြပါ ဥပမာများသည် နည်းလမ်းတစ်ခုစီကို လက်တွေ့အသုံးချနည်းကို ပြသထားသည်။

ဥပမာ 1- လက်ရှိစာမျက်နှာမှ ဂရပ်ဖစ်အားလုံးကို ဖျက်ပါ။

ကျွန်ုပ်တို့တွင် ဇယားနှစ်ခုပါရှိသော အောက်ပါ Excel စာရွက်တွင် ဆိုပါစို့။

ဤစာမျက်နှာမှ ဇယားအားလုံးကို ဖယ်ရှားရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်-

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ဇယားနှစ်ခုလုံးကို စာရွက်မှ ဖယ်ရှားလိုက်ကြောင်း သတိပြုပါ။

ဥပမာ 2- အလုပ်စာအုပ်တစ်ခုလုံးမှ ဇယားအားလုံးကို ဖယ်ရှားပါ။

ကျွန်ုပ်တို့တွင် နောက်ထပ်ဇယားနှစ်ခုပါရှိသော ကျွန်ုပ်တို့၏ Excel အလုပ်စာအုပ်တွင် နောက်ထပ်စာရွက်တစ်ခုရှိသည်ဆိုကြပါစို့။

အလုပ်စာအုပ်၏ အလွှာနှစ်ခုစလုံးမှ ဂရပ်ဖစ်အားလုံးကို ဖယ်ရှားရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်-

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

ဤမက်ခရိုကို လုပ်ဆောင်ပြီးသည်နှင့်၊ စာရွက်နှစ်ခုစလုံးရှိ ဂရပ်ဖစ်အားလုံးကို ဖျက်လိုက်မည်-

ဤဥပမာတွင် ကျွန်ုပ်တို့သည် စာရွက်နှစ်ရွက်မှဇယားကွက်များကိုသာ ဖယ်ရှားလိုက်သော်လည်း ဤ macro သည် စာရွက်အရေအတွက်များပါရှိသော Excel workbook နှင့် အလုပ်လုပ်မည်ကို သတိပြုပါ။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA- ဆဲလ်တန်ဖိုးပေါ်မူတည်၍ အတန်းများကို ဖျက်နည်း
VBA- အမည်တွင် သီးခြားစာသားပါရှိလျှင် စာရွက်တစ်ရွက်ကို မည်သို့ဖျက်မည်နည်း။
VBA: ဖိုင်တွေကို ဘယ်လိုဖျက်မလဲ။