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

[µo°Ý] ½Ð±ÐÃö©ó¦p¦óÅý¨C¤@­Ósheetªº¹Ï¤ù§¡¦³ÂIÀ»©ñ¤jÁY¤p®ÄªG

¦^´_ 1# cmo140497
  1. Private Sub Workbook_Open()
  2. Set dic = CreateObject("Scripting.Dictionary")
  3. Dim Sh As Shape
  4. For Each sht In Sheets
  5. For Each Sh In sht.Shapes
  6.    If Sh.Name Like "¹Ï¤ù*" Then Sh.OnAction = "nn": dic(Sh.Name & "h") _
  7.    = Sh.Height:: dic(Sh.Name & "w") = Sh.Width
  8. Next
  9. Next
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# cmo140497

SheetActivate¨Æ¥óµ{§Ç·íµM¤]¥i¥H
­n¥Î
for each pic in Sh.Shapes
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD