[µo°Ý] ½Ð°ÝExcel¤u§@ªí¤¤ªº¹Ï¤ùµô¤Á

CaoCao

½Ð°Ý¦U¦ì¤j¤j¡A§Ú¦b¤u§@ªí¤¤¦³¤£¯S©w¼Æ¶qªº¹Ï¤ù¡A·Q§â¿ï¤¤ªº¹Ï¤ùµô¤Á±¼³»³¡ªº20%¡A¨ä¾l¤j¤p³£¤£ÅÜ¡A¨Ã§âµô¤Á«áªº¹Ï¤ù¤W²¾¨ì­ì¥»ªº¦ì¸m¡A¼g¦¨VBAªº¸Ü­n«ç»ò¼g©O¡H

singo1232001

¦^´_ 1# CaoCao


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropTop = .CropTop + Z.Height * 0.2
End With
Next
End Sub

¦Û§Ú·Pı¨}¦n

³o¬O§RÑH¤ùªº¤W¤è¡A¦pªG­n§R¥ªÃä©Î¥kÃä¡A­n«ç¼Ë§@©O¡H

¦Û§Ú·Pı¨}¦n

­ì¨Ó¥i¥H³o·dªº
¤Ó¼¡Á¤F¡K


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropTop = .CropTop + Z.Height * 0.2
End With
Next
End Sub


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropRight = .GropRight + Z.Height * 0.2
End With
Next
End Sub


    Sub test()
For Each Z In ActiveSheet.Shapes
With Z.PictureFormat
.CropLeft = .CropLeft + Z.Height * 0.2
End With
Next
End Sub

CaoCao

¥ý¦b¦¹ÁÂÁ¦U¦ì¤j¤jªº¦^ÂСA¤p§Ì°£¤F¤W¨Óñ¨ì¥~¡A¤@ª½¨S¦³ªÅ¥J²Ó¬ã¨s¡A·|§ä­Ó®É¶¡¦n¦n´ú¸Õ¤@¤U¡A·PÁ¦U¦ì¡I