Hello,
With Spread 8 v8.0.07 , the code provided by Suresh seems to be working absolutely fine, I would request you to please test it with the same and feel free to share your observation.
The code I tried looks like,
Private Sub Command1_Click()
fpSpread1.ClearRange 2, 3, 2, 3, False
End Sub
Private Sub Form_Load()
fpSpread1.Col = 2
fpSpread1.Row = 3
fpSpread1.RowHeight(3) = 25
fpSpread1.ColWidth(2) = 5
fpSpread1.CellType = CellTypePicture
fpSpread1.TypePictPicture = LoadPicture("D:\ImagesIcon\ico\bin full.ico")
fpSpread1.TypePictStretch = True
fpSpread1.TypePictMaintainScale = True
End Sub
Clicking on the Command Button Clears the Cell Type from Cell(3,2).
Thanks,
Deepak Sharma
GrapeCity FarPoint