¥æ¡¼¥¶¡¼¥Õ¥©¡¼¥à¤ËޤêÉÕ¤±¤¿Image¤Î¿§»ØÄê¡Ê¡¡BackColor¤äForeColor¤Î¥×¥í¥Ñ¥Æ¥£¤Ç8·å¤Î16¿Ê¿ô¡¢¡Ö&H00CE0FF¡×¤Ê¤É¡Ë¤ò¡¢¥·¡¼¥È¾å¤Î¥ª¡¼¥È¥·¥§¥¤¥×¤ÎLine¤Î¿§»ØÄê¤ËŬÍѤ¹¤ë¼ê½ç¤ò¥á¥â¡£
¾åµ¤Î¤è¤¦¤Ê¥æ¡¼¥¶¡¼¥Õ¥©¡¼¥à¾å¤ÎImege¤Î¿§»ØÄê¤ò¼èÆÀ¤·¤Æ¡¢¥ª¡¼¥È¥·¥§¥¤¥×¤ËŬÍѤ·¤è¤¦¤È¤¹¤ë¤È¡¢Åɤê¤Ä¤Ö¤·¤Î Fill ¤Ï¤½¤Î¤Þ¤ÞŬÍѤµ¤ì¤ë¤¬¡¢ ¤Ê¤¼¤«Line ¤Ï¤½¤Î¤Þ¤Þ¤Ç¤ÏÈ¿±Ç¤·¤Ê¤¤¡£
¡û Selection.ShapeRange.Fill.ForeColor = frmImg.BackColor
¡ß¡¡Selection.ShapeRange.Line.ForeColor = frmImg.BackColor
¡¡¢¨¡¡frmImg.BackColor¤Ï8·å¤Î16¿Ê¿ô¤¬10¿Ê¿ô¤ËÊÑ´¹¤µ¤ì¤Æ¤¤¤ë¡£
Line¤Ï¡¢RGB¤Þ¤¿¤ÏSchemeColor¥×¥í¥Ñ¥Æ¥£¤ò·Ðͳ¤·¤Ê¤¤¤È¥À¥á¤é¤·¤¤¡£
RGB¥×¥í¥Ñ¥Æ¥£¤Ë¤Ï¡¢£²¤Ä¤Î»ØÄêÊýË¡¤¬¤¢¤ê¡¢²¼¤ÎÎã¤Ï¤¤¤º¤ì¤âƱ¤¸¡ÖÈ©¿§¡×¤Ë¤Ê¤ë¡£
.Line.ForeColor.RGB = RGB( 255, 224 , 192) '¥«¥Ã¥³¤ÎÃæ¤Ï10¿Ê¿ô¡£
.Line.ForeColor.RGB = &HC0E0FF '6·å¤Î16¿Ê¿ô¡£
¤·¤¿¤¬¤Ã¤Æ¡¢Image¤Î¿§»ØÄê¤òLine¤ËÈ¿±Ç¤µ¤»¤ë¤Ë¤Ï¡¢°Ê²¼¤Î¤è¤¦¤Ë̵Íý¤ä¤ê6·å¤Î16¿Ê¿ô»ØÄê¤òRGB·ÐͳͿ¤¨¤ë¤È²¿¤È¤«¤Ê¤Ã¤¿¡£
¡¡¡frmImg.BackColor¡¡¤ò10¿Ê¿ô¤È¤·¤Æ¼èÆÀ
¢¡¡Hex()¤Ç16¿Ê¿ôɸµ¤Îʸ»úÎó¤ËºÆÊÑ´¹
£¡¡²¼6ʸ»ú¤ò¼è¤ê½Ð¤·¡¢Æ¬¤Ë¡Ö&H¡×¤òÉÕ¤±¤ÆRGB¥×¥í¥Ñ¥Æ¥£¤ËÂåÆþ
¤¿¤À¤·¡¢RGB¥×¥í¥Ñ¥Æ¥£¤À¤±¤òÀßÄꤷ¤Æ¤¤¤ë¤ï¤±¤À¤«¤é¡¢.Line.ForeColor.SchemeColor ¥×¥í¥Ñ¥Æ¥£¤Ë¤ÏÅöÁ³²¿¤âÆþ¤é¤Ê¤¤¡ÊVBE¤Ç¤Ï<¥¢¥×¥ê¥±¡¼¥·¥ç¥óÄêµÁ¤Þ¤¿¤Ï¥ª¥Ö¥¸¥§¥¯¥ÈÄêµÁ¤Î¥¨¥é¡¼¤Ç¤¹¡£>¤Èɽ¼¨¡Ë¡£¤³¤Î¤¿¤á¡¢¤³¤ÎÊýË¡¤Ç¿§¤òÊѤ¨¤¿¥ª¡¼¥È¥·¥§¥¤¥×¤Ï¡¢SchemeColorÃͤò»È¤Ã¤Æ¤Î¸¡º÷¤ä¾ò·ïʬ´ô¤Ï¤Ç¤¤Ê¤¯¤Ê¤ë¡£
¾åµ¤Î¤è¤¦¤Ê¥æ¡¼¥¶¡¼¥Õ¥©¡¼¥à¾å¤ÎImege¤Î¿§»ØÄê¤ò¼èÆÀ¤·¤Æ¡¢¥ª¡¼¥È¥·¥§¥¤¥×¤ËŬÍѤ·¤è¤¦¤È¤¹¤ë¤È¡¢Åɤê¤Ä¤Ö¤·¤Î Fill ¤Ï¤½¤Î¤Þ¤ÞŬÍѤµ¤ì¤ë¤¬¡¢ ¤Ê¤¼¤«Line ¤Ï¤½¤Î¤Þ¤Þ¤Ç¤ÏÈ¿±Ç¤·¤Ê¤¤¡£
¡û Selection.ShapeRange.Fill.ForeColor = frmImg.BackColor
¡ß¡¡Selection.ShapeRange.Line.ForeColor = frmImg.BackColor
¡¡¢¨¡¡frmImg.BackColor¤Ï8·å¤Î16¿Ê¿ô¤¬10¿Ê¿ô¤ËÊÑ´¹¤µ¤ì¤Æ¤¤¤ë¡£
Line¤Ï¡¢RGB¤Þ¤¿¤ÏSchemeColor¥×¥í¥Ñ¥Æ¥£¤ò·Ðͳ¤·¤Ê¤¤¤È¥À¥á¤é¤·¤¤¡£
RGB¥×¥í¥Ñ¥Æ¥£¤Ë¤Ï¡¢£²¤Ä¤Î»ØÄêÊýË¡¤¬¤¢¤ê¡¢²¼¤ÎÎã¤Ï¤¤¤º¤ì¤âƱ¤¸¡ÖÈ©¿§¡×¤Ë¤Ê¤ë¡£
.Line.ForeColor.RGB = RGB( 255, 224 , 192) '¥«¥Ã¥³¤ÎÃæ¤Ï10¿Ê¿ô¡£
.Line.ForeColor.RGB = &HC0E0FF '6·å¤Î16¿Ê¿ô¡£
¢¨¡¡Î¾É¸µ¤Ï¿§»ØÄê¤Î½ç½ø¤¬Á°¸åµÕ¤Ç¤¢¤ë¡£
¡¡¡¦RGB( ÀÖ , ÎÐ , ÀÄ )
¡¡¡¦&H- ÀÄ2·å-ÎÐ2·å-ÀÖ2·å
¡¡¡¦RGB( ÀÖ , ÎÐ , ÀÄ )
¡¡¡¦&H- ÀÄ2·å-ÎÐ2·å-ÀÖ2·å
¤·¤¿¤¬¤Ã¤Æ¡¢Image¤Î¿§»ØÄê¤òLine¤ËÈ¿±Ç¤µ¤»¤ë¤Ë¤Ï¡¢°Ê²¼¤Î¤è¤¦¤Ë̵Íý¤ä¤ê6·å¤Î16¿Ê¿ô»ØÄê¤òRGB·ÐͳͿ¤¨¤ë¤È²¿¤È¤«¤Ê¤Ã¤¿¡£
Selection.ShapeRange.Line.ForeColor.RGB = _
"&H" & Right(Hex(myImg.BackColor), 6)
"&H" & Right(Hex(myImg.BackColor), 6)
¡¡¡frmImg.BackColor¡¡¤ò10¿Ê¿ô¤È¤·¤Æ¼èÆÀ
¢¡¡Hex()¤Ç16¿Ê¿ôɸµ¤Îʸ»úÎó¤ËºÆÊÑ´¹
£¡¡²¼6ʸ»ú¤ò¼è¤ê½Ð¤·¡¢Æ¬¤Ë¡Ö&H¡×¤òÉÕ¤±¤ÆRGB¥×¥í¥Ñ¥Æ¥£¤ËÂåÆþ
¤¿¤À¤·¡¢RGB¥×¥í¥Ñ¥Æ¥£¤À¤±¤òÀßÄꤷ¤Æ¤¤¤ë¤ï¤±¤À¤«¤é¡¢.Line.ForeColor.SchemeColor ¥×¥í¥Ñ¥Æ¥£¤Ë¤ÏÅöÁ³²¿¤âÆþ¤é¤Ê¤¤¡ÊVBE¤Ç¤Ï<¥¢¥×¥ê¥±¡¼¥·¥ç¥óÄêµÁ¤Þ¤¿¤Ï¥ª¥Ö¥¸¥§¥¯¥ÈÄêµÁ¤Î¥¨¥é¡¼¤Ç¤¹¡£>¤Èɽ¼¨¡Ë¡£¤³¤Î¤¿¤á¡¢¤³¤ÎÊýË¡¤Ç¿§¤òÊѤ¨¤¿¥ª¡¼¥È¥·¥§¥¤¥×¤Ï¡¢SchemeColorÃͤò»È¤Ã¤Æ¤Î¸¡º÷¤ä¾ò·ïʬ´ô¤Ï¤Ç¤¤Ê¤¯¤Ê¤ë¡£










