takeshilin88

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

ikboy

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

takeshilin88

¦^´_ 12# ikboy


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

¤U¸ü (40.65 KB)

2020-10-8 14:51

ikboy

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

ikboy

­×§ï¥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

­ã´£³¡ªL

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

ikboy

³ßÅw­ã¤j³o¤@¥y, Æg

1. With ActiveSheet.Shapes.AddPicture(i, False, True, rngs.Left, rngs.Top, True, True)

½Æ»s¥N½X

takeshilin88

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

¤U¸ü (30.98 KB)

2020-10-12 09:54

­ã´£³¡ªL

¦^´_ 18# takeshilin88


.LockAspectRatio = True

takeshilin88

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


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

¤U¸ü (30.98 KB)

2020-10-12 10:43