VBA কোড দিয়ে শেপ ম্যানিপুলেশন

Visio-তে VBA (Visual Basic for Applications) ব্যবহার করে শেপ ম্যানিপুলেশন খুবই কার্যকরী হতে পারে। আপনি VBA কোড ব্যবহার করে শেপগুলোর অবস্থান, আকার, রঙ, টেক্সট ইত্যাদি নিয়ন্ত্রণ করতে পারেন। নিচে কিছু সাধারণ শেপ ম্যানিপুলেশন সম্পর্কিত VBA কোড উদাহরণ দেওয়া হল।

1. শেপ সিলেক্ট করা এবং অবস্থান পরিবর্তন করা

Visio-তে একটি নির্দিষ্ট শেপ সিলেক্ট করা এবং তার অবস্থান পরিবর্তন করার জন্য নিচের কোড ব্যবহার করতে পারেন:

Sub MoveShape()
    Dim shp As Visio.Shape
    Set shp = ActivePage.Shapes("Shape1") 'Shape1 এর পরিবর্তে আপনার শেপের নাম দিন
    shp.Cells("PinX").Formula = "5 in" ' X অবস্থান পরিবর্তন
    shp.Cells("PinY").Formula = "5 in" ' Y অবস্থান পরিবর্তন
End Sub

এই কোডে, PinX এবং PinY সেল ব্যবহার করে শেপটির অবস্থান (X এবং Y কোঅর্ডিনেট) পরিবর্তন করা হচ্ছে।

2. শেপের আকার পরিবর্তন করা

শেপের আকার পরিবর্তন করতে Width এবং Height সেল ব্যবহার করা হয়। নিচের কোডটি একটি শেপের আকার পরিবর্তন করবে:

Sub ResizeShape()
    Dim shp As Visio.Shape
    Set shp = ActivePage.Shapes("Shape1") 'Shape1 এর পরিবর্তে আপনার শেপের নাম দিন
    shp.Cells("Width").Formula = "4 in" ' প্রস্থ পরিবর্তন
    shp.Cells("Height").Formula = "3 in" ' উচ্চতা পরিবর্তন
End Sub

এই কোডে শেপের প্রস্থ এবং উচ্চতা নির্ধারণ করা হচ্ছে। আপনি নিজের পছন্দ অনুযায়ী সাইজ পরিবর্তন করতে পারেন।

3. শেপের রঙ পরিবর্তন করা

Visio-তে শেপের রঙ পরিবর্তন করতে FillForegnd সেল ব্যবহার করা হয়। নিচের কোডটি শেপের ভেতরের রঙ পরিবর্তন করবে:

Sub ChangeShapeColor()
    Dim shp As Visio.Shape
    Set shp = ActivePage.Shapes("Shape1") 'Shape1 এর পরিবর্তে আপনার শেপের নাম দিন
    shp.Cells("FillForegnd").Formula = "RGB(255,0,0)" ' লাল রঙ
End Sub

এখানে RGB(255,0,0) ব্যবহার করে শেপের ভেতরের রঙ লাল করা হয়েছে। আপনি অন্য RGB মান ব্যবহার করে বিভিন্ন রঙ সেট করতে পারেন।

4. শেপে টেক্সট যুক্ত করা

Visio-তে শেপের ভিতরে টেক্সট যুক্ত করতে Text সেল ব্যবহার করা হয়। নিচে একটি উদাহরণ দেওয়া হল:

Sub AddTextToShape()
    Dim shp As Visio.Shape
    Set shp = ActivePage.Shapes("Shape1") 'Shape1 এর পরিবর্তে আপনার শেপের নাম দিন
    shp.Text = "Hello, Visio!" ' টেক্সট যুক্ত করা
End Sub

এই কোডটি শেপের ভিতরে "Hello, Visio!" টেক্সট যোগ করবে। আপনি এখানে আপনার পছন্দ অনুযায়ী টেক্সট পরিবর্তন করতে পারেন।

5. শেপের স্টাইল পরিবর্তন করা

Visio-তে শেপের স্টাইল পরিবর্তন করার জন্য LineColor, LineWeight ইত্যাদি সেল ব্যবহার করা হয়। নিচে একটি কোড দেওয়া হল যা শেপের সীমানার রঙ এবং প্রস্থ পরিবর্তন করবে:

Sub ChangeShapeLineStyle()
    Dim shp As Visio.Shape
    Set shp = ActivePage.Shapes("Shape1") 'Shape1 এর পরিবর্তে আপনার শেপের নাম দিন
    shp.Cells("LineColor").Formula = "RGB(0,0,255)" ' নীল রঙ
    shp.Cells("LineWeight").Formula = "2 pt" ' সীমানার প্রস্থ
End Sub

এই কোডটি শেপের সীমানার রঙ নীল এবং প্রস্থ ২ পয়েন্টে সেট করবে।

6. শেপ ঘোরানো (Rotate Shape)

Visio-তে শেপ ঘোরানোর জন্য Angle সেল ব্যবহার করা হয়। নিচে একটি উদাহরণ দেওয়া হল:

Sub RotateShape()
    Dim shp As Visio.Shape
    Set shp = ActivePage.Shapes("Shape1") 'Shape1 এর পরিবর্তে আপনার শেপের নাম দিন
    shp.Cells("Angle").Formula = "90 deg" ' 90 ডিগ্রি ঘোরানো
End Sub

এই কোডটি শেপটিকে 90 ডিগ্রি ঘুরিয়ে দিবে।

7. শেপের আংশিক অংশ মুছে ফেলা

Visio-তে শেপের কোনো নির্দিষ্ট অংশ মুছে ফেলার জন্য Delete মেথড ব্যবহার করা হয়। নিচের কোডে একটি শেপ মুছে ফেলার উদাহরণ দেওয়া হল:

Sub DeleteShape()
    Dim shp As Visio.Shape
    Set shp = ActivePage.Shapes("Shape1") 'Shape1 এর পরিবর্তে আপনার শেপের নাম দিন
    shp.Delete ' শেপ মুছে ফেলা
End Sub

এই কোডটি সিলেক্ট করা শেপটি মুছে ফেলবে।

উপসংহার

VBA কোড ব্যবহার করে Visio-তে শেপ ম্যানিপুলেশন করার মাধ্যমে আপনি দ্রুত এবং কার্যকরীভাবে ডায়াগ্রামের উপাদানগুলো নিয়ন্ত্রণ করতে পারেন। VBA আপনাকে শেপের আকার, অবস্থান, রঙ, টেক্সট ইত্যাদি কাস্টমাইজ করার পুরো স্বাধীনতা দেয়, যা স্বয়ংক্রিয় কাজের জন্য বিশেষভাবে উপকারী।