1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개
글 수 65

메시지 박스 대용으로 Shape 사용하기

조회 수 16088 추천 수 0 2009.05.07 19:37:16
[레벨:30]아별 *.107.204.56
출처 : 엑사모

관련 파일 : VBA_aternativeMsgBox.xls

Shape를 사용한 것도 재밌지만,
Application.Wait Now + TimeValue("0:00:5") 을 사용해서 시스템을 잠시 대기 상태로 만든다음,
만든 Shape를 삭제하는 방식도 흥미롭다.

 Option Explicit

Sub Message()
    ActiveSheet.Shapes.AddShape(msoShapeHorizontalScroll, 200, 50, 200, _
        90).Select
    Selection.Characters.Text = "꼭 멧세지 박스라야 되나?" & Chr(10) & "요런거 띄워도 되지 머.." & Chr(10) & "안그런가요?" & Chr(10) & "- Jazzpia -"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .AutoSize = True
        .ShapeRange.Fill.ForeColor.SchemeColor = 13
        .Characters(Start:=1, Length:=14).Font.Color = vbRed
        .Characters(Start:=38, Length:=12).Font.Color = vbBlue
    End With
Application.Wait Now + TimeValue("0:00:5")
Selection.Delete
End Sub





이 게시물을...
profile
첨부
엮인글 :
http://abyul.com/zbxe/65208/882/trackback
목록
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 34023
65 기타 [펌] 한글을 자음 모음으로 나누기 + 합치기(초성,중성,종성) [레벨:30]아별 2022-03-22 2562
64 엑셀.. 잡다구리.. 폼에서 홈페이지 링크 등.. [레벨:30]a☆ 2004-10-25 3378
63 기타 [펌] 추가 기능 개발시 리본메뉴에 넣을 MSO Image 쉽게 확인하기 imagefile [레벨:30]아별 2015-01-09 3528
62 엑셀에서 에러 처리 [1] [레벨:30]a☆ 2004-10-23 3723
61 엑셀 기본작업 매크로.. 선택/입력/복사 등 [레벨:30]a☆ 2004-10-25 3849
60 엑셀에서 매크로 실행 동안 화면이 업데이트 되지 않게 하기.. [레벨:30]a☆ 2004-10-26 3910
59 [엑셀VBA 기본 규칙] 순환문.. [레벨:30]a☆ 2005-08-04 4184
58 기타 [VBA] 컴퓨터 이름 알아내기 등 PC 환경 변수 읽오이기.. Environ [레벨:30]아별 2015-04-08 4514
57 [엑셀VBA] 변수의 전달 [레벨:30]a☆ 2005-05-13 4576
56 엑셀의 내용을 복사해서 메모장을 띄우고 붙여넣기 [레벨:30]a☆ 2005-07-21 4778
55 하이퍼링크 일괄 제거하기 [레벨:30]a☆ 2005-07-21 4994
54 엑셀 실행시 자동으로 실행 // 종료시 자동으로 실행 [레벨:30]아별 2004-10-25 5065
53 [펌] 엑셀로 최대 공약수 구하기 [2] [레벨:30]아별 2008-12-18 5294
52 셀의 상대 위치 이동< offset(행,열) >과 절대 위치 이동.. [레벨:30]a☆ 2004-10-20 5421
51 메모 입력할때 사용자 이름 제거하고 입력하기.. [레벨:30]a☆ 2006-01-19 5427
50 엑셀 도구모음에 콤보박스로 매크로 실행하기.. +_+ [레벨:30]a☆ 2005-11-03 5461
49 바로 옆셀의 메모값 가져 오기 [1] [레벨:30]아별 2008-10-20 5507
48 스스로 사라지는 메시지 박스 file [1] [레벨:30]아별 2009-05-07 5631
47 기타 VBA로 인디언식 이름 만들어주는 사용자 정의 함수 만들기.. imagefile [1] [레벨:30]아별 2012-01-11 5714
46 엑셀 사용자 정의 수식(UDF)에 도움말 넣는 방법. [레벨:30]아별 2009-11-11 5848
목록
쓰기