Is there a way in
VB to set the fill to "No Fill" and the line to "No Fill" for a Shape Object in Excel?
The Transparency property setting of 1 displays properly on the screen and in printed web pages, but the box outlines are shown in printed Excel spreadsheets. The SchemeColor and RGB property settings give solid fills, but do not seem to have a "No Fill" value.
Set wbc = xl.Application.Workbooks
'Determine workbook and active sheet
counter = 1
Do While (counter <= numberWorkbooks)
If (wbc(counter).FullName = filePathNameWithExtension) Then
wbIndex = counter
End If
counter = counter + 1
Loop
Set wb = wbc(wbIndex)
Set sht = wb.activeSheet
xStart = 100
yStart = 20
shapeWidth = 50
shapeHeight = 15
Set shp = sht.Shapes.AddShape(msoShapeRectangle, xStart, yStart, shapeWidth, shapeHeight)
shp.Fill.ForeColor.SchemeColor = 6
shp.Fill.ForeColor.RGB = RGB(255, 255, 0) 'This supersedes prior line
shp.Fill.Transparency = 1
shp.Line.Transparency = 1