ªð¦^¦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 : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD