VBA 改良版 スクリーンショットを撮るãŸã³ã«è‡ªå‹•ã§ã‚·ãƒ¼ãƒˆã«å¼µã‚Šä»˜ã‘るマクム～ OnTimeã«ã‚ˆã‚‹æ’常ループ - t-hom’s diary先日以下ã®è¨˜äº‹ã§ã€ã‚¹ã‚¯ãƒªãƒ¼ãƒ³ã‚·ãƒ§ãƒƒãƒˆã‚’撮るãŸã³ã«è‡ªå‹•ã§ã‚·ãƒ¼ãƒˆã«å¼µã‚Šä»˜ã‘るマクãƒã‚’紹介ã—ãŸã€‚ thom.hateblo.jp 割ã¨ã†ã¾ãã„ã£ãŸã®ã ãŒã€å®Ÿè¡Œä¸ã«ã‚¿ã‚¹ã‚¯ãƒãƒ¼ã‹ã‚‰ä»–ã®Excelã¸åˆ‡ã‚Šæ›¿ãˆãŒã§ããªã„ã“ã¨ãŒåˆ¤æ˜Žã—ãŸã€‚ サーãƒãƒ¼ç®¡ç†æ¥å‹™ã§ãƒžãƒ‹ãƒ¥ã‚¢ãƒ«ãŒExcelã§ä½œã‚‰ã‚Œã¦ã„ã‚‹ã‚‚ã®ãŒã‚ã‚‹ã®ã§ã€Excelを閲覧ã—ãªãŒã‚‰ä½œæ¥ã§ããªã„点ã¯ã¤ã‚‰ã„。 ã¾ãŸã€ActiveSheetã«å¼µã‚Šä»˜ã‘ã—ã¦ã„ã‚‹ãŸã‚ã€åˆ¥ã®ã‚·ãƒ¼ãƒˆãŒActiveã«ãªã£ã¦ã„ã‚‹ã¨æ„図ã—ãªã„ã¨ã“ã‚ã«å¼µã‚Šä»˜ã„ã¦ã—ã¾ã†ã€‚ 終了ã•ã›ã‚‹ãŸã‚ã«ã‚»ãƒ«ã«Exitã¨æ›¸ã点もã‚ã¾ã‚Šã‚¤ã‚±ã¦ãªã„。 今回ã¯ãã®ã‚ãŸã‚Šã‚’改良ã—ãŸãƒžã‚¯ãƒã‚’作æˆã—ãŸã€‚ コード Declare Function OpenClipboard Lib "user32" (Optional ByVal hwnd As Long = 0) As Long Declare Function Close
第36回　オリジナルã®ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆã‚ーを作る
作æ¥ã‚’効率化ã•ã›ã‚‹Excel VBA Tips集 é¸æŠžã—ãŸå›³å½¢ã‚’JPEGç”»åƒã¨ã—ã¦ä¿å˜ã™ã‚‹
{{#tags}}- {{label}}
{{/tags}}