版主,背景设置问题解决了:
- Dim image As Bitmap = System.Drawing.Image.FromFile(Application.StartupPath & "\img\nb.gif")
- Dim rShape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
- ''设置背景及边线透明
- rShape.BackColor = Color.Transparent
- rShape.ShapeOutlineColor = Color.Transparent
- rShape.Picture = image
- rShape.Location = New Point(20, 60)
- rShape.Name = "myRect1"
- rShape.PictureTransparencyColor = Color.FromArgb(0, 255, 255, 255)
- vass.ActiveSheet.RemoveShape("myRect1")
- vass.ActiveSheet.AddShape(rShape)
复制代码
还有一个问题:
我如何设置这个图片的位置呢,如何将其放置在制定单元格内(比如 A列18行对应的表格为制表人,我要把这个印章放到A列18行位置),并且位置不可拖动?还请帮忙解决。 |