作者：绿色风
分类：
时间：2022-08-18
浏览：188
楼主
amulee |
VSTO的TrackBar类似于一个滚动条，只不过用另一个外形来展示。
本示例展示了通过TrackBar控件实时改变单元格字体大小。
动画效果：
操作步骤：
1、创建一个Excel程序。（[VSTO] 利用VSTO制作一个简单的Excel程序 http://www.exceltip.net/thread-21546-1-1.html
）
2、添加一个TrackBar控件。
3、在工作表中添加以下代码：
- Public Class Sheet1
- Private Sub Sheet1_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Me.SelectionChange
- If Target.Count = 1 Then
- With TrackBar1
- '设置尺寸和位置
- .Top = Target.Top + Target.Height
- .Left = Target.Left
- .Width = Target.Width
- .Height = 20
- .Visible = True
- '设置最大和最小值
- .Minimum = 1
- .Maximum = 72
- .Value = Target.Font.Size
- End With
- End If
- End Sub
- Private Sub Sheet1_Startup() Handles Me.Startup
- Me.TrackBar1.Visible = False
- End Sub
- '当值变化时触发
- Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
- Me.Parent.parent.activecell.font.size = Me.TrackBar1.Value
- End Sub
- End Class
可以发现，在单元格大小发生变化时，TrackBar控件的位置也在实时发生变化。
附件下载：
 VSTO中TrackBar示例.rar
|
2楼
亡者天下 |
VSTO相关的帖子不是很多啊
学习一下
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一