Зураг ба Excel VBA

Зиа та бүхэнд өдрийн мэнд хүргье. Өнөөдөр шинэ долоо хоногийн эхний өдөр. Өглөө босох гэж нилээд зовлоо. Арай гэж л босч ажилдаа ирлээ. Үдээс өмнө гадуурх ганц хоёр ажилаа амжууллаа. Үдээс хойш яг таг өрөөндөө суулаа даа. Ажил тарах дөхөж байна. Нэг нийтлэл бичихээр шийдлээ. Нээрээ өнгөрсөн амралтын өдөр Сайтандаа нэг Plugin суулгалаа. Одоо л ид шидийг нь үзье байз. Энэ Plugin-ийг туршиж үзэх албаар MACRO-той нийтлэл сонгосон юм. Та бүхэн Plugin-ийн үр дүнг олоорой.

Зураг ба EXCEL VBA. Тэгэхээр нэрнээсээ л ойлгомжтой байна. Зургийг VBA-тай холбоно гэсэн үг. Юуны өмнө бидэнд нэг зураг хэрэгтэй. Ямарч зураг байж болноо. Миний хувьд Сайтныхаа ЛОГО-г ашиглахчихлаа. Болохгүй юм байхгүй биз дээ залуусаа 🙂

Энэ зураг маань Picture 1 гэж нэрлэгдсэн байна. Дараах зургаас хараарай. Энэхүү нэршил маань маш чухал гэдийг бас анхаараарай. Юунд гэхээр VBA код бичих үед.

За одоо ахиад нэг дүрс үүсгье. Энэ бол VBA код удирдах товч юм. Өөрөөр хэлбэл энэ код дээр дарах замаар дээрх зургийг удирдана. Зураг удирдана гэдэг маань зургийг “Aлга болгоно” эсвэл “Ил гаргана” гэсэн хоёр л үйлдэл юм.

Энэ үүсгэсэн дүрс маань Rounded Rectangle 2 гэж нэрлэгдсэн байна. Энэ нэршил нь бас чухал шүү. Мөн л бидний бичих гэж байгаа VBA кодонд хамаатай нэршил юм.

Зиак одоо VBA кодоо бичие. VBA кодыг VBE-т шинэ Модуль нэмэх замаар үүсгэнэ.

Модульд дараах VBA кодыг бичнэ. Үүнд:

[php]

Sub Macro1()
With ActiveSheet.Shapes(“Rounded Rectangle 2”).TextFrame2.TextRange.Characters
If .Text = “Hide” Then
.Text = “Show”
ActiveSheet.Shapes(“Picture 1”).Visible = False
Else
.Text = “Hide”
With ActiveSheet.Shapes(“Rounded Rectangle 2”)
ActiveSheet.Shapes(“Picture 1”).Visible = True
End With
End If
End With
End Sub

[/php]

Одоо дараах зааварын дагуу үүсгэсэн код удирдах товчийг дээрх VBA кодтой холбоно.

Энэ бүгдийн үр дүнд бидний загвар бэлэн болно.

Үүнийг хөдөлгөөнт зургаар илэрхийлэе.

Зиа ингээд боллоо. Танд энэхүү загвар хэзээ хэрэг болох бэ гэвэл таны ямар нэгэн файл загварчлалд хэрэг болно гэдэгт итгэлтэй байна.