c_c_lai

¦^´_ 1# morris_lth

1. Sub Ex()
   
2.     Dim rngA As Range, rngB As Range, c1 As Long, c2 As Long
   
3.    
   
4.     Set rngA = [D1]
   
5.     Set rngB = [A2]
   
6.     ActiveSheet.Shapes.AddPicture (ThisWorkbook.Path & "\c.png"), msoTrue, msoTrue, rngA.Left, rngB.Top, 5 / 0.035, 1.2 / 0.035
   
7.    
   
8.     c1 = 1: c2 = 15
   
9.     ActiveSheet.Shapes.AddPicture ThisWorkbook.Path & "\c.png", msoTrue, msoTrue, Range("D" & c1).Left, Range("A" & c2).Top, 5 / 0.035, 1.2 / 0.035
   
10. End Sub

½Æ»s¥N½X

¤U¸ü (34.11 KB)

2015-12-24 19:44