Spread插入透明背景图片如何设置才能显示为透明的？

版主你好，

我的需求是在Spead表格中添加透明图片（比如印章），让其透明显示，请参考下图：
Spread透明图片.jpg (24.01 KB, 下载次数: 489)

2014-12-25 15:52 上传

点击文件名下载附件
两种方式对比
其中第一个是通过Spread编辑器插入的图片，第二个是通过代码手工添加的图片，附添加操作如下：

1. Dim image As Bitmap = System.Drawing.Image.FromFile(Application.StartupPath & "\img\nb.gif")
   
2.             Dim rShape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
   
3. 
   
4.             rShape.Picture = image
   
5.             rShape.Location = New Point(20, 60)
   
6.             rShape.Name = "myRect1"
   
7.             rShape.PictureTransparencyColor = Color.FromArgb(0, 255, 255, 255)
   
8.             vass.ActiveSheet.RemoveShape("myRect1")
   
9.             vass.ActiveSheet.AddShape(rShape)

复制代码

现在想通过手动的方式添加，使其效果如第一种，请帮忙解决，非常感谢～～

版主，背景设置问题解决了：

1. Dim image As Bitmap = System.Drawing.Image.FromFile(Application.StartupPath & "\img\nb.gif")
   
2.             Dim rShape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
   
3. ''设置背景及边线透明
   
4.            rShape.BackColor = Color.Transparent
   
5.             rShape.ShapeOutlineColor = Color.Transparent
   
6. 
   
7.             rShape.Picture = image
   
8.             rShape.Location = New Point(20, 60)
   
9.             rShape.Name = "myRect1"
   
10.             rShape.PictureTransparencyColor = Color.FromArgb(0, 255, 255, 255)
    
11.             vass.ActiveSheet.RemoveShape("myRect1")
    
12.             vass.ActiveSheet.AddShape(rShape)

复制代码

还有一个问题：
我如何设置这个图片的位置呢，如何将其放置在制定单元格内（比如 A列18行对应的表格为制表人，我要把这个印章放到A列18行位置），并且位置不可拖动？还请帮忙解决。

回复 2楼gdrle的帖子

抱歉让你久等了，2# 问题测试代码如下：

1. 
   
2.             //添加Shape
   
3.             FarPoint.Win.Spread.DrawingSpace.RectangleShape rShape = new FarPoint.Win.Spread.DrawingSpace.RectangleShape();
   
4.             rShape.Name = "myRect1";
   
5.             rShape.BackColor = Color.Blue;
   
6.             //锁定 Shape
   
7.             rShape.Locked = true;
   
8.             //获取单元格位置及大小
   
9.             Rectangle cellrec = this.fpSpread1.GetCellRectangle(0, 0, 17, 1);
   
10. 
    
11.             rShape.Width = cellrec.Width;
    
12.             rShape.Height = cellrec.Height;
    
13.             rShape.Left = cellrec.Left-(int)this.fpSpread1.ActiveSheet.SheetCorner.Columns[0].Width;
    
14.             rShape.Top = cellrec.Top - (int)this.fpSpread1.ActiveSheet.SheetCorner.Rows[0].Height;
    
15. 
    
16.             this.fpSpread1.Sheets[0].AddShape(rShape);
    

复制代码

谢谢版主回复，现在还是有点问题，我用的是VS2010+VB.NET+SPREAD.NET 6,
使用你给的方法获取不到指定单元格的坐标，请参考下图：

GetCellRectangle.jpg (68.34 KB, 下载次数: 446)

2014-12-26 10:51 上传

点击文件名下载附件

行号和列号都有了，取出来的值还是0（参考监视其中的值）。

取不到的值的问题解决了。

不要在shape处理的时候调用函数取值：

1. 
   
2.         Dim p As Point = getSpreadCellRect(FpSpread1, FpSpread1.ActiveSheet.ActiveRowIndex, FpSpread1.ActiveSheet.ActiveColumnIndex)
   
3.         Dim image As Bitmap = System.Drawing.Image.FromFile(Application.StartupPath & "\img\nb.gif")
   
4.         Dim rShape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
   
5.         rShape.BackColor = Color.Transparent
   
6.         rShape.ShapeOutlineColor = Color.Transparent
   
7.         rShape.Picture = image
   
8.         rShape.Location = p
   
9.         rShape.Name = "myRect1"
   
10.         rShape.Locked = True
    
11.         FpSpread1.ActiveSheet.RemoveShape("myRect1")
    
12.         FpSpread1.ActiveSheet.AddShape(rShape)
    
13. 
    
14.         MessageBox.Show("X:" & p.X & ",Y:" & p.Y)

复制代码

不过这样取的结果只能是可见单元格的坐标，如果取的单元格位于不可见区域（通过拖动滚动条选取）则取到的值跟我想要的不一样，看来是通过for循环累加行高和列宽吧，不知道版主有没有更好的方法。

回复 5楼gdrle的帖子

你好，
不可见区域，是需要通过 for循环累加行高和列宽 来获取，注意要考虑边框的高度"1px"。

上传个Demo Mark一下，以备后用（VS 2010 + VB.NET +SPREAD.NET 6)：

SpreadSeal.zip (110.13 KB, 下载次数: 541)

2014-12-26 13:51 上传

点击文件名下载附件

回复 7楼gdrle的帖子

感谢上传demo，给您分发 500 金币。可以用于兑换论坛奖品。
金币规则：点击进入
礼品列表：点击进入