VBA చార్టులు | VBA కోడ్ ఉపయోగించి చార్ట్ జోడించడానికి ఉదాహరణలు
ఎక్సెల్ VBA చార్టులు
చార్ట్‌లను VBA లోని వస్తువులుగా పిలుస్తారు, వర్క్‌షీట్ మాదిరిగానే మనం కూడా VBA లో చార్ట్‌లను అదే పద్ధతిలో చొప్పించగలము, మొదట మనం డేటా మరియు చార్ట్ రకాన్ని ఎన్నుకుంటాము, అవుట్ డేటా కోసం, ఇప్పుడు మేము రెండు రకాల చార్టులను అందిస్తున్నాము చార్ట్ ఒకే డేటా షీట్లో ఉన్న ఎంబెడ్ చార్ట్ మరియు మరొకటి చార్ట్ షీట్ అని పిలుస్తారు, ఇక్కడ డేటా యొక్క ప్రత్యేక షీట్లో చార్ట్ ఉంటుంది.
డేటా విశ్లేషణలో, విజువల్ ఎఫెక్ట్స్ విశ్లేషణ చేసిన వ్యక్తి యొక్క ముఖ్య పనితీరు సూచికలు. ఒక విశ్లేషకుడు తన సందేశాన్ని తెలియజేయగల ఉత్తమ మార్గం విజువల్స్. మనమందరం ఎక్సెల్ యూజర్లు కాబట్టి, మేము సాధారణంగా డేటాను విశ్లేషించడానికి గణనీయమైన సమయాన్ని వెచ్చిస్తాము మరియు సంఖ్యలు మరియు చార్టులతో తీర్మానాలను తీసుకుంటాము. చార్ట్ను సృష్టించడం అనేది నైపుణ్యం కలిగిన కళ మరియు ఎక్సెల్ తో చార్టులను సృష్టించే మంచి జ్ఞానం మీకు ఉందని నేను ఆశిస్తున్నాను. ఈ వ్యాసంలో, VBA కోడింగ్ ఉపయోగించి చార్టులను ఎలా సృష్టించాలో మేము మీకు చూపుతాము.
ఎక్సెల్ లో VBA కోడ్ ఉపయోగించి చార్టులను ఎలా జోడించాలి?
మీరు ఈ VBA చార్ట్స్ ఎక్సెల్ మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA చార్ట్స్ ఎక్సెల్ మూస# 1 - VBA కోడింగ్ ఉపయోగించి చార్ట్ సృష్టించండి
ఏదైనా చార్ట్ సృష్టించడానికి మనకు ఒక విధమైన సంఖ్యా డేటా ఉండాలి. ఈ ఉదాహరణ కోసం, నేను నమూనా డేటా క్రింద ఉపయోగించబోతున్నాను.
సరే, VBA ఎడిటర్‌కి వెళ్దాం.
దశ 1: సబ్ ప్రొసీజర్ ప్రారంభించండి.
కోడ్:
ఉప చార్టులు_ఉదాహరణ 1 () ముగింపు ఉప
దశ 2: వేరియబుల్‌ను చార్ట్‌గా నిర్వచించండి.
కోడ్:
చార్ట్ ఎండ్ సబ్ గా సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్
దశ 3: చార్ట్ ఒక ఆబ్జెక్ట్ వేరియబుల్ కాబట్టి మనకు అవసరం సెట్ అది.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్ చార్ట్ సెట్ మైచార్ట్ = చార్ట్స్. ఎండ్ సబ్ జోడించండి
పై కోడ్ వర్క్‌షీట్‌గా కాకుండా చార్ట్ షీట్‌గా కొత్త షీట్‌ను జోడిస్తుంది.
దశ 4: ఇప్పుడు మనం చార్ట్ రూపకల్పన చేయాలి. స్టేట్‌మెంట్‌తో తెరవండి.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్ చార్ట్ సెట్ మైచార్ట్ = చార్ట్స్. మైచార్ట్ ఎండ్ విత్ ఎండ్ సబ్ తో జోడించండి
దశ 5: మొదటిది మనం చేయవలసిన చార్టులో విషయం ఎంచుకోవడం ద్వారా మూల పరిధిని సెట్ చేయడం “మూల డేటాను సెట్ చేయండి” పద్ధతి.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్ చార్ట్ సెట్ మైచార్ట్ = చార్ట్స్. మైచార్ట్ తో జోడించండి .సెట్సోర్స్డేటా ఎండ్ సబ్ తో
దశ 6: ఇక్కడ మనం మూల పరిధిని పేర్కొనాలి. ఈ సందర్భంలో, నా మూల పరిధి “షీట్ 1” అని పిలువబడే షీట్లో ఉంది మరియు పరిధి “A1 నుండి B7”.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్ చార్ట్ సెట్ మైచార్ట్ = చార్ట్స్. మైచార్ట్ తో జోడించండి .సెట్సోర్స్డేటా షీట్స్ ("షీట్ 1"). పరిధి ("ఎ 1: బి 7") ఎండ్ సబ్ తో ముగుస్తుంది 
దశ 7: తరువాత మనం సృష్టించబోయే చార్ట్ రకాన్ని ఎన్నుకోవాలి. దీని కోసం, మనం ఎంచుకోవాలి చార్ట్ రకం ఆస్తి.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్ చార్ట్ సెట్ మైచార్ట్ = చార్ట్స్. మైచార్ట్ తో జోడించండి .సెట్సోర్స్డేటా షీట్స్ ("షీట్ 1"). పరిధి ("ఎ 1: బి 7") .చార్ట్ టైప్ = ఎండ్ సబ్ తో ముగింపు 
దశ 8: ఇక్కడ మనకు రకరకాల పటాలు ఉన్నాయి. నేను “xlColumnClustered”చార్ట్.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్ చార్ట్ సెట్ మైచార్ట్ = చార్ట్స్. మైచార్ట్ తో చేర్చండి .సెట్సోర్స్డేటా షీట్స్ ("షీట్ 1"). పరిధి ("ఎ 1: బి 7") .చార్ట్ టైప్ = xl కాలమ్ క్లస్టర్డ్ ఎండ్ విత్ ఎండ్ సబ్ 
సరే, ఈ సమయంలో F5 కీని ఉపయోగించి లేదా మానవీయంగా కోడ్‌ను రన్ చేద్దాం మరియు చార్ట్ ఎలా ఉందో చూద్దాం.
దశ 9: ఇప్పుడు చార్ట్ యొక్క ఇతర లక్షణాలను మార్చండి. దిగువ చార్ట్ శీర్షికను మార్చడానికి కోడ్.
ఇలా, మనకు చార్టులతో చాలా లక్షణాలు మరియు పద్ధతులు ఉన్నాయి. ప్రభావాన్ని చూడటానికి మరియు తెలుసుకోవడానికి వాటిలో ప్రతిదాన్ని ఉపయోగించండి.
సబ్ చార్ట్స్_ఎక్సాంపుల్ 1 () డిమ్ మైచార్ట్ చార్ట్ సెట్ మైచార్ట్ = చార్ట్స్. మైచార్ట్ తో జోడించండి .సెట్సోర్స్డేటా షీట్స్ ("షీట్ 1"). పరిధి ("ఎ 1: బి 7") .చార్ట్ టైప్ = xl కాలమ్ క్లస్టర్డ్ .చార్ట్ టైటిల్.టెక్స్ట్ " # 2 - అదే ఎక్సెల్ షీట్‌తో ఆకారంలో చార్ట్ సృష్టించండి
ఆకారంలో అదే వర్క్‌షీట్ (డేటాషీట్) తో చార్ట్ సృష్టించడానికి మనం వేరే టెక్నిక్ ఉపయోగించాలి.
దశ 1: మొదటి డిక్లేర్ త్రీస్ ఆబ్జెక్ట్ వేరియబుల్స్.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 2 () డిమ్ Ws వర్క్‌షీట్ డిమ్ Rng గా రేంజ్ డిమ్ మైచార్ట్ ఆబ్జెక్ట్ ఎండ్ సబ్
దశ 2: అప్పుడు వర్క్‌షీట్ సూచనను సెట్ చేయండి.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 2 () డిమ్ Ws వర్క్‌షీట్‌గా డిమ్ Rng రేంజ్ డిమ్ మైచార్ట్ ఆబ్జెక్ట్ సెట్‌గా Ws = వర్క్షీట్లు ("షీట్ 1") ఎండ్ సబ్ 
దశ 3: ఇప్పుడు శ్రేణి వస్తువును VBA లో సెట్ చేయండి
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 2 () డిమ్ Ws వర్క్‌షీట్‌గా డిమ్ Rng రేంజ్ డిమ్ మైచార్ట్ ఆబ్జెక్ట్ సెట్‌గా Ws = వర్క్షీట్లు ("షీట్ 1") సెట్ Rng = Ws.Range ("A1: B7") ముగింపు ఉప 
దశ 4: ఇప్పుడు చార్ట్ ఆబ్జెక్ట్ సెట్ చేయండి.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 2 () డిమ్ Ws వర్క్‌షీట్‌గా డిమ్ Rng రేంజ్ డిమ్ మైచార్ట్ ఆబ్జెక్ట్ సెట్‌గా Ws = వర్క్షీట్లు ("షీట్ 1") సెట్ Rng = Ws.Range ("A1: B7") సెట్ మైచార్ట్ = Ws.Shapes.AddChart2 ఎండ్ సబ్ 
దశ 5: ఇప్పుడు, ఎప్పటిలాగే, “తో” స్టేట్‌మెంట్ ఉపయోగించి చార్ట్ను డిజైన్ చేయవచ్చు.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 2 () వర్క్‌షీట్‌గా డిమ్ డబ్ల్యుఎస్ 'వర్క్‌షీట్ రిఫరెన్స్‌ను డిమ్ రింగ్‌ను పరిధిగా ఉంచడానికి' వర్క్‌షీట్‌లో రేంజ్ రిఫరెన్స్‌ను పట్టుకోవటానికి డిమ్ మైచార్ట్ ఆబ్జెక్ట్ సెట్‌గా Ws = వర్క్షీట్లు ("షీట్ 1") 'ఇప్పుడు వేరియబుల్ "Ws" షీట్‌కు సమానం " షీట్ 1 "సెట్ Rng = Ws.Range (" A1: B7 ") 'ఇప్పుడు వేరియబుల్" Rng "షీట్లో A1 నుండి B7 పరిధిని కలిగి ఉంది" షీట్ 1 "సెట్ MyChart = Ws.Shapes.AddChart2' చార్ట్ ఆకారంలో చేర్చబడుతుంది MyChart.Chart తో అదే వర్క్‌షీట్ .సెట్సోర్స్డేటా Rng 'చార్ట్ కోసం ఉపయోగించాల్సిన కణాల శ్రేణిని మేము ఇప్పటికే సెట్ చేసినందున, మేము ఇక్కడ RNG ఆబ్జెక్ట్‌ను ఉపయోగించాము .చార్ట్ టైప్ = xlColumnClustered .ChartTitle.Text = "సేల్స్ పెర్ఫార్మెన్స్" ఎండ్ సబ్ తో ముగుస్తుంది ఇది దిగువ చార్ట్ను జోడిస్తుంది.
# 3 - చార్టుల ద్వారా లూప్ చేయడానికి కోడ్
పేరును మార్చడానికి లేదా విలువలను చొప్పించడానికి మేము షీట్ల ద్వారా ఎలా చూస్తామో, వాటిని దాచండి మరియు దాచండి. అదేవిధంగా చార్టుల ద్వారా లూప్ చేయడానికి మనం చార్ట్ ఆబ్జెక్ట్ ప్రాపర్టీని ఉపయోగించాలి.
దిగువ కోడ్ వర్క్‌షీట్‌లోని అన్ని చార్ట్‌ల ద్వారా లూప్ అవుతుంది.
కోడ్:
యాక్టివ్‌షీట్‌లోని ప్రతి మైచార్ట్‌కు చార్ట్ ఆబ్జెక్ట్‌గా సబ్ చార్ట్_లూప్ () డిమ్ మైచార్ట్.చార్ట్ ఆబ్జెక్ట్స్ 'ఇక్కడ కోడ్‌ను నమోదు చేయండి తదుపరి మైచార్ట్ ఎండ్ సబ్
# 4 - చార్ట్ సృష్టించడానికి ప్రత్యామ్నాయ పద్ధతి
చార్ట్‌లను సృష్టించడానికి మేము ఈ క్రింది ప్రత్యామ్నాయ పద్ధతిని ఉపయోగించవచ్చు. మేము చార్ట్ ఆబ్జెక్ట్ ఉపయోగించవచ్చు. దిగువ చార్ట్ను సృష్టించడానికి పద్ధతిని జోడించు ఉదాహరణ కోడ్.
ఇది మునుపటి పద్ధతి వలె చార్ట్ను కూడా సృష్టిస్తుంది.
కోడ్:
సబ్ చార్ట్స్_ఎక్సాంపుల్ 3 () డిమ్ Ws వర్క్‌షీట్‌గా డిమ్ Rng రేంజ్ డిమ్ మైచార్ట్ చార్ట్‌ఆబ్జెక్ట్ సెట్‌గా Ws = వర్క్షీట్లు ("షీట్ 1") సెట్ Rng = Ws.Range ("A1: B7") సెట్ మైచార్ట్ = Ws.ChartObjects.Add (ఎడమ: = యాక్టివ్ సెల్. ఉప
