通过VBA实时显示飞机模型进度

Banie_Liang

大神帮忙：
我有一个100% 的生产进度，希望飞机跟着进度不断前进。怎么实现

专搞excel

好问题，帮楼主顶起

zopey

工作表 change 触发事件，了解一下。

liujialin0o0

工作表 change 触发事件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. Dim pic As Shape
   
4. 
   
5. For Each pic In Sheet1.Shapes
   
6.     Set pn = pic
   
7. Next
   
8. 
   
9. For Each Rng In Range("E9:L9")
   
10.     If Rng = 1 Then
    
11.         Rng.Offset(-1, 0).Select
    
12.         pn.Left = Rng.Left
    
13.         pn.Top = Rng.Top
    
14.         pn.Width = Rng.Width
    
15.         pn.Height = Rng.Height
    
16.     End If
    
17. Next
    
18. End Sub

复制代码

Banie_Liang

liujialin0o0 发表于 2018-8-23 16:41
工作表 change 触发事件

谢谢！
飞机会飞啦，但是飞机保不住了。变小了

liujialin0o0

pn.Width = 可以调节宽度
pn.Height = 可以调节高度

Banie_Liang

liujialin0o0 发表于 2018-8-27 09:31
pn.Width = 可以调节宽度
pn.Height = 可以调节高度

Nice，Thanks a lot!