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

¹Ï¤ù©ñ¦bªþµù¡A¹Ï¤ù¸ô®|°ÝÃD

¹Ï¤ù©ñ¦bªþµù¡A¹Ï¤ù¸ô®|°ÝÃD

½Ð°Ý¦U¦ì
§Ú¦pªG§â¹Ï©ñ¦b"C:\TEST\"¡AŪ¨ú¹ÏÀɧ¹¥þ¨S¦³°ÝÃD
¦ý§Ú¦pªG§â¹Ï©ñ¦b"C:\Program Files\Parse\ImageStore"
¹ÏÀɧ¹¥þŪ¨ú¤£¨ì
½Ð°Ý³o°ÝÃD¦³¤H¹J¨ì¹L¶Ü?

EXCEL VBA·s¤â´£°Ý
  1. Range().Select
  2. Range("A1").AddComment
  3. Range("A1").Comment.Visible = False
  4. Range("A1").Comment.Text Text:=""
  5. Range("A1").Select
  6. Range("A1").Comment.Visible = True
  7. Range("A1").Comment.Shape.Select True

  8. Selection.ShapeRange.Fill.Transparency = 0#
  9. Selection.ShapeRange.LockAspectRatio = msoTrue
  10. Selection.ShapeRange.Line.Weight = 0.75
  11. Selection.ShapeRange.Line.DashStyle = msoLineSolid
  12. Selection.ShapeRange.Line.Style = msoLineSingle

  13. Selection.ShapeRange.Line.Transparency = 0#
  14. Selection.ShapeRange.Line.Visible = msoTrue
  15. Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
  16. Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
  17. Selection.ShapeRange.Fill.Visible = msoTrue
  18. Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
  19. Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
  20. Selection.ShapeRange.Fill.UserPicture "C:\TEST\"
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD