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

·j´MÀɮפ¤¤å¦r¤è¶ô

Sub test()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
¡@¡@Shp.TopLeftCell.Interior.Color = vbYellow
Next
End Sub

¦³ª«¥óªºÀx¦s®æ¼Ð¶À¦â

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD