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

´¡¤J¹Ï¤ù®É¡Aµ¥¤ñ¨Ò©ñ¤j©ÎÁY¤p

«Øij¼W¥[«Å§i:
  1. Dim NewPicture as Object
½Æ»s¥N½X
  1. i = ThisWorkbook.Path & "\" & NewRef & ".jpg"
  2.     X = Dir(ThisWorkbook.Path & "\" & NewRef & ".jpg")
  3.     If X <> "" Then
  4.         Set Rngs = Range(Cells(61, 2), Cells(61, 19))
  5.         Set NewPicture = ActiveSheet.Pictures.Insert(i)
  6.         With NewPicture
  7.             .ShapeRange.LockAspectRatio = msoTrue
  8.             .Left = Rngs.Left
  9.             .Height = Rngs.Height
  10.             If .Width > Rng.Width Then
  11.                 .Width = Rng.Width
  12.                 .Top = Rngs.Top + (Rngs.Height - .Height) / 2
  13.             Else
  14.                 .Top = Rngs.Top
  15.             End If
  16.         End With
½Æ»s¥N½X

TOP

§Ú¬O°ò©ó§Aªº¥N½X­×§ï, ¥¼°Ñ»P°j°é³¡¥÷, ¤£¾å±o°ÝÃD©Ò¦b¡C

TOP

¦A¬Ý³o¤@¥y (¦]¬°µ¥¤ñ¨Ò©ñ¤j«áªº¹Ï¤ù¼e«×ÁÙ¬O¤ñÀx¦s®æ½d³ò¤p) «á, ²´·ú°¨¤W@@, ¸£¸Ì??¶Ã­¸, ¨ì©³§A­n¹Ï¤ù­è¶ñº¡Àx¦s®æ©Î¹Ï¦Û¨­ªø¼e«ö¬Û¦P¤ñ¨ÒºÉ¶q©ñ¤JÀx¦s®æ¤¤?

TOP

¥Ñ©ó°N¬O¥N½X¤ù¬q­×¥¿®×, µLªk´ú¸Õ, ¤W¦¸¥N½X¤¤ªºRngs, ¤í¤F"s" ¤Î¨S¦³ End if, ¦¹¦¸¤@¦P­×¥¿¡C
  1. i = ThisWorkbook.Path & "\" & NewRef & ".jpg"
  2.     X = Dir(ThisWorkbook.Path & "\" & NewRef & ".jpg")
  3.     If X <> "" Then
  4.         Set Rngs = Range(Cells(61, 2), Cells(61, 19))
  5.         Set NewPicture = ActiveSheet.Pictures.Insert(i)
  6.         With NewPicture
  7.             .ShapeRange.LockAspectRatio = msoTrue
  8.             If .Height / .Width >= Rngs.Height / Rngs.Width Then
  9.                 .Height = Rngs.Height
  10.                 .Top = Rngs.Top
  11.                 .Left = (Rngs.Width - .Width) / 2 + Rngs.Left
  12.             Else
  13.                 .Width = Rngs.Width
  14.                 .Left = Rngs.Left
  15.                 .Top = (Rngs.Height - .Height) / 2 + Rngs.Top
  16.             End If
  17.         End With
  18.     End If
½Æ»s¥N½X

TOP

¨º¬O­pºâÀx¦s®æ»P¹Ï¤ù°ª¼e¤ñ, ¿ï¥X¾A¦Xªº°ª©Î¼e§@¬°¹Ï¤ùªº°ò¦µM«á......

TOP

  1. i = ThisWorkbook.Path & "\" & NewRef & ".jpg"
  2.     X = Dir(ThisWorkbook.Path & "\" & NewRef & ".jpg")
  3.     If X <> "" Then
  4.         Set Rngs = Range(Cells(61, 2), Cells(61, 19))
  5.         Set NewPicture = ActiveSheet.Pictures.Insert(i)
  6.             xSize = .Height / .Width
  7.             If .Height / .Width >= Rngs.Height / Rngs.Width Then
  8.                 T = Rngs.Top
  9.                 L = (Rngs.Width - .Width) / 2 + Rngs.Left
  10.                 H = Rngs.Height
  11.                 W = H / xSize
  12.             Else
  13.                 T = (Rngs.Height - .Height) / 2 + Rngs.Top
  14.                 L = Rngs.Left
  15.                 W = Rngs.Width
  16.                 H = W * xSize
  17.             End If
  18.             .Delete
  19.         End With
  20.         Set NewPicture = ActiveSheet.Shapes.AddPicture(i, 1, 1, L, T, W, H)
  21.     End If
½Æ»s¥N½X

TOP

¥Ñ©ó¨S¦³¹Ï¤ù¤Îªþ¥ó°µ´ú¸Õ, ·í¤¤¥i¯à¦³Bug, ¬Û«H¬O²Ä 9, 13 ¨â¦æªººâªk¥X°ÝÃD¡C

TOP

­×§ï¥H¤U¤@¬q¸Õ¸Õ, ¦ýÁÙ¬O¨º¤@¥y, ¨S¦³´ú¸Õ¡C
  1.     .ShapeRange.LockAspectRatio = msoTrue
  2.     xp = Rngs.Height / .Height
  3.     If .Height / .Width >= Rngs.Height / Rngs.Width Then
  4.         .Height = Rngs.Height
  5.         .Top = Rngs.Top
  6.         .Left = (Rngs.Width - .Width * xp) / 2 + Rngs.Left
  7.     Else
  8.         .Width = Rngs.Width
  9.         .Left = Rngs.Left
  10.         .Top = (Rngs.Height - .Height * xp) / 2 + Rngs.Top
  11.     End If
½Æ»s¥N½X

TOP

³ßÅw­ã¤j³o¤@¥y, Æg
  1. With ActiveSheet.Shapes.AddPicture(i, False, True, rngs.Left, rngs.Top, True, True)
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD