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

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

¦^´_ 7# ikboy

    ¨D±Ï!!!
    ¦]¦¹excelÀÉ«áÄò¥H¥¨¶°¤è¦¡¨Ï¥Îoutlook±H«H®É¡A¥[¤Jªþ¥ó¡A
    ¦ý¹ï¤è¦¬¨ì«áÀɮ׶}±ÒµLªk¥¿±`Åã¥Ü¹Ï¤ù¡A¥X²{¡GµLªkÅã¥Ü³sµ²ªº¹Ï¹³¡CÀÉ®×¥i¯à¤w²¾°Ê¡B­«·s©R¦W©Î§R°£¡C½ÐÅçÃÒ³sµ²«ü¦V¥¿½TªºÀɮפΦì¸m¡C

    ¬d¸ß¦n¹³¬O­n¥ÎShapes.AddPicture ªº¤è¦¡¡A
    ½Ð±Ð­n¦p¦ó§ï¬°Shapes.AddPicture ©O¡H
    ·PÁÂ~

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

¦^´_ 12# ikboy


    ikboy¤j¤j±z¦n¡G
    ¬Ý©ú©ú³]©w³£¨S¿ù¡A¦ý¬O¥X¨Ó¹Ï¤ùªº¦ì¸m«o°¾¥kÃä­C¡A¤£ª¾¹D¬O­þ¸Ì¦³°ÝÃD¡H

2020-10-08_145105.jpg
2020-10-8 14:51

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

Set rngs = Range(Cells(61, 2), Cells(61, 19))
With ActiveSheet.Shapes.AddPicture(i, False, True, rngs.Left, rngs.Top, True, True)
     .LockAspectRatio = msoFalse
     If .Width > rngs.Width - 4 Then .Width = rngs.Width - 4
     If .Height > rngs.Height - 4 Then .Height = rngs.Height - 4
     .Left = rngs.Left + (rngs.Width - .Width) / 2
     .Top = rngs.Top + (rngs.Height - .Height) / 2
End With

TOP

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

TOP

¦^´_ 16# ­ã´£³¡ªL


    ·PÁ­ã¤jªº¦^ÂСA¹Ï¤ù¤w¸g¦³¸m¤¤¤F¡A¦ý¬O¹Ï¤ù¨S¦³µ¥¤ñ¨Òªº¦bÀx¦s®æ½d³ò¤º©ñ¤j©ÎÁY¤p©O¡H
    ¥i¥H¦AÀ°¦£«ü¾É¤@¤U¶Ü¡H
    ÁÂÁÂ~~
2020-10-12_095352.jpg
2020-10-12 09:54

TOP

¦^´_ 18# takeshilin88


.LockAspectRatio = True

TOP

¦^´_ 19# ­ã´£³¡ªL


    ¦ü¥G¨S¤°»òÅܤÆ....

2020-10-12_104245.jpg
2020-10-12 10:43

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD