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

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

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

½Ð°Ý¦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

¦^´_ 1# CaoCao


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

TOP

³o¬O§RÑH¤ùªº¤W¤è¡A¦pªG­n§R¥ªÃä©Î¥kÃä¡A­n«ç¼Ë§@©O¡H
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

­ì¨Ó¥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
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD