에서 VBA를 사용한 바코드 사용 및 자동화 PowerPoint

응용 프로그램용 비주얼 베이직(VBA)을 사용하면 많은 문제를 쉽게 해결할 수 있습니다. 여기에서는 VBA를 사용하여 바코드를 PowerPoint 프레젠테이션에 통합하는 방법, 사용 방법 및 제거 방법을 간략하게 설명합니다.

VBA를 사용하여 활성 슬라이드에 ActiveBarcode 컨트롤을 삽입하는 방법입니다:
이 예제에서는 바코드가 슬라이드에 지정된 위치와 크기로 배치됩니다. 그런 다음 ab를 통해 개체에 주소를 지정할 수 있습니다:

Dim ab As Shape
Set ab = Application.ActiveWindow.View.Slide.Shapes.AddOLEObject(Left:=100,
  Top:=100, Width:=300, Height:=150, ClassName:="ACTIVEBARCODE.BarcodeCtrl.1")

이제 ab 변수의 속성을 사용하여 OLE 객체의 표준 속성(예: 높이, 너비)을 변경할 수 있습니다:

ab.Width = 200
ab.Height = 120

이제 바코드 개체의 프로퍼티 및 메소드를 원하는 대로 사용할 수 있습니다:

ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"
ab.OLEFormat.Object.Rotate = 90

예를 들어 인쇄 후 더 이상 필요하지 않은 경우 매크로/슬라이드에서 컨트롤을 쉽게 제거할 수 있습니다:

 ab.Delete

힌트: Windows가 매크로 내에서 예정된 이벤트(흔히 KeepWindowsAlive라고 함)를 처리해야 하는 경우 다음 VBA 함수를 사용하여 이를 강제할 수 있습니다:

DoEvents

예를 들어 컨트롤을 새로 그려야 하는 경우와 같이 필요할 수 있습니다.