안녕하세요!
VBA에서 테스트 해본 코드는 아니지만 API호출은 동일하니 맞춰서 사용하시면 될 것 같아요.
VARIANT type, faceColor, facestyle, hatchcolor;
type.vt = VT_UI1;
facestyle.vt = VT_UI1;
hatchcolor.vt = VT_UI1;
faceColor.vt = VT_UI1;
type.intVal = 1; // 배경 유형
facestyle.lVal = 0xffffffff; //무늬 스타일(무늬없음)
hatchcolor.lVal = 0x00000000; // 무늬 색
faceColor.lVal = 0x0000ffff; // 배경 색
DHwpAction cellfillact = m_ocxHwpCtrl.CreateAction("CellFill");
DHwpParameterSet fillSet = cellfillact.CreateSet();
DHwpParameterSet fillattrSet = fillSet.CreateItemSet("FillAttr", "DrawFillAttr");
cellfillact.GetDefault(fillSet);
fillattrSet.SetItem("Type", type);
fillattrSet.SetItem("WinBrushFaceStyle", facestyle);
fillattrSet.SetItem("WinBrushHatchColor", hatchcolor);
fillattrSet.SetItem("WinBrushFaceColor", faceColor);
cellfillact.Execute(fillSet);
주요 포인트는 CellFill로 Action을 생성하고
CreateSet을 해서 받은 Set에서 다시 CreateItemSet을 생성하는 것입니다.
그리고 4개의 아이템이 기본적으로 채워져야 채우기가 동작합니다.
더 궁금한 점 있으시면 언제든지 문의주세요