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

[µo°Ý] ½Ð±Ð¦p¦ó¨Ì§Ç±N¹Ï¤ù¶K©ó¤u§@ªí¤§¦³­­°Ï°ì¤º?

[µo°Ý] ½Ð±Ð¦p¦ó¨Ì§Ç±N¹Ï¤ù¶K©ó¤u§@ªí¤§¦³­­°Ï°ì¤º?

Dear ¦U¦ì¤j¤j¤Îª©¥D :
¤p§Ì¦³¤@°ÝÃD·Q½Ð±Ð :
¤u§@ªí1¤º¦³¤£µ¥¼Æ¤§¹Ï¤ù,­n¦p¦ó¨Ì§Ç±N¹Ï¤ù¶K©ó¤u§@ªí2¤§¦³­­°Ï°ì¤º,¦pªG¤u§@ªí2¤§¦³­­°Ï°ìwidth¤£¨¬¥H¦A¶K¤W¤@±i¹Ïªºwidth,«h¸õ¤U¤@¦C(µLªk«ü©wcells),¦]¬°¹Ï¤ùªø¼e¤j¤p¤£¤@©w

¤u§@ªí1¦p¤U¹Ï



¤u§@ªí2¦p¤U¹Ï


question2_2013-05-06.zip (488.24 KB)

¦^´_ 1# cmo140497
  1. Sub test()
  2. Dim Pc As Picture, w#, k#, t#, h#
  3. Application.ScreenUpdating = False
  4. ¤u§@ªí1.Pictures.Copy
  5.    With ¤u§@ªí2
  6.    .Pictures.Delete
  7.    w = .[AY2].Left + .[AY2].Width
  8.    k = .[B2].Left
  9.    t = .[B2].Top
  10.       .Paste
  11.        For Each Pc In .Pictures
  12.           With Pc
  13.           k = IIf(k + .Width > w, .Parent.[B2].Left, k)
  14.           t = IIf(k = .Parent.[B2].Left, t + h, t)
  15.              .Top = t
  16.              .Left = k
  17.              h = IIf(h < .Height, .Height, h)
  18.              h = IIf(k = .Parent.[B2].Left, .Height, h)
  19.              k = k + .Width
  20.           End With
  21.        Next
  22.        .[B2].Select
  23.    End With
  24.    Application.ScreenUpdating = True
  25. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ½Ð±Ðª©¥D,Pictures.parent ³o­Óparent³Ì¥D­n¥Î·N,¬O­n¨ú±oPictures ª«¥óªº°Ñ¼ÆÁÙ¬OÀx¦s®æªº,¬Ý¤£¬O«ÜÀ´,¦A·Ð½Ðª©¥D«ü±Ð,·P®¦?

TOP

¦^´_ 3# cmo140497


    parent´N¬O¨ú±oª«¥óªº¤÷¶¥¼hª«¥ó
Picuure¬O¨Ìªþ¦b¤u§@ªí¤Wªºª«¥ó
©Ò¥H
Pictures(x).Parent´N¬O¸Ó¹Ï¤ù©Ò¦bªº¤u§@ªí
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ·PÁª©¥Dªº«ü±Ð,¤S¾Ç¨ì¤F¤@©Û,·P®¦!

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD