3,245
社区成员
发帖
与我相关
我的任务
分享
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 9).Font.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0.6800000072
.Solid
End With
VARIANT param3;
param3.vt = VT_BOOL ;
param3.boolVal = -1;
hr = OLEMethod(DISPATCH_PROPERTYGET, NULL, pFill, L"Visible", 1, param3) ;
if (hr != S_OK)
{
goto EXIT ;
}
hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, nType, &dp, pvResult, NULL, NULL) ;