ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ActiveSheet.Shapes.AddPicture ¦ì¸m§ï¦¨ÅܼƸӦp¦ó¼g?

[µo°Ý] ActiveSheet.Shapes.AddPicture ¦ì¸m§ï¦¨ÅܼƸӦp¦ó¼g?

ActiveSheet.Shapes.AddPicture (Picname), msoTrue, msoTrue, [D1].Left, [A2].Top, 5 / 0.035, 1.2 / 0.035
½Ð°Ý¤@¤U¤W­z«ü¥O¤¤ªº[A2]ªº2,§Ú·Q§ï¦¨ÅܼÆI,¸Ó«çﻼg? ¤@ª½¨S¸Õ¦¨¥\....

Cells(I, "A")

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-24 19:44 ½s¿è

¦^´_ 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

TOP

­ì¨Ó¬O³o¼Ë,ÁÂÁ¤j®a
§Ú°ò¦¤£¦n,¦³®ÉGOOGLE¤£¨ìµª®×,±`±`³Â·Ð¦U¦ì¥ý¶i.....ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD