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

[µo°Ý] Ãö©ó¹ÏÀɸm¤¤

[µo°Ý] Ãö©ó¹ÏÀɸm¤¤

½Ð°Ý,¦p¦óÀ³¥ÎVBA±N©Ò¦³¹ÏÀÉ,¦b¸ÓÀx¦s®æÄæ¦ì¸m¤¤
¹ÏÀɸm¤¤.rar (283.62 KB)

¦^´_ 2# GBKEE

ÁÂÁ±zªº¬Û§U!!
°ÝÃD¸Ñ¨M¤F

·P®¦!!

TOP

¦^´_ 1# HSIEN6001
  1. Option Explicit
  2. Sub Ex()
  3.     Dim P As Pictures, I As Integer, H1, H2
  4.     Set P = Worksheets("Á`ªí").Pictures
  5.     For I = 1 To P.Count
  6.         With P(I)
  7.             H1 = .TopLeftCell.Height
  8.             H2 = .Height
  9.             .Top = .TopLeftCell.Top + (H1 - H2) / 2   '¹Ï¤ù,««ª½¸m¤¤
  10.             H1 = .TopLeftCell.Width
  11.             H2 = .Width
  12.             .Left = .TopLeftCell.Left + (H1 - H2) / 2 '¹Ï¤ù,¤ô¥­¸m¤¤
  13.         End With
  14.     Next
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD