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

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

조회 수 2414 추천 수 0 2009.05.07 19:37:16
출처 : 엑사모

관련 파일 : 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





문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:24]아별 2007-01-24 12353
58 기타 VBA로 인디언식 이름 만들어주는 사용자 정의 함수 만들기.. imagefile [1] [레벨:24]아별 2012-01-11 157
57 기타 오피스2010 64bit(64비트)를 위한 API Declare 방법 file [레벨:24]아별 2011-10-05 251
56 기타 [펌] VBA 공부를 시작하시는분들에게 추천하는 강의자료 imagefile [3] [레벨:24]아별 2011-03-21 811
55 기타 VBA _ 레지스트리 다루기 ( registry control ) imagefile [레벨:24]아별 2011-03-19 607
54 기타 엑셀에서 소리 내기(재생) _ sound play file [레벨:24]아별 2010-12-13 683
53 기타 헷갈리기 쉬운 워크시트 함수와 VBA함수 비교표 [레벨:24]아별 2010-10-05 1094
52 기타 기본 제공 대화 상자 실행하면 초기 값 설정 imagefile [레벨:24]아별 2010-08-25 1347
51 기타 [펌] 엑셀 VBA를 쭈~욱 정리하신 내용이 있네요.. image [레벨:24]아별 2010-03-09 3171
50 기타 [링크] VBA로 파일을 다루는 방법에 대한 강좌들을 모아놓은 겁니다. [레벨:24]아별 2010-03-03 2522
49 현재 엑셀 파일의 색상표(Color Chart) 확인용 코드 [레벨:24]아별 2009-12-24 2346
48 [펌] Visual Basic (비쥬얼 베이직) 함수 정리 imagefile [레벨:24]아별 2009-11-27 3546
47 엑셀 사용자 정의 수식(UDF)에 도움말 넣는 방법. [레벨:24]아별 2009-11-11 2074
46 Excel에서 메뉴 및 메뉴 모음을 사용자 지정하는 방법 image [레벨:24]아별 2009-11-04 2149
45 기타 엑셀 기본 제공 대화 상자 인수 목록 file [레벨:24]아별 2009-11-04 2566
44 엑셀2007에서 셀의 색상을 RGB로 뽑아내기 file [레벨:24]아별 2009-10-06 2501
43 [VBA팁] 화일이 존재하는지 확인하기 [레벨:24]아별 2009-07-31 2850
42 엑셀에서 사용하는 언어 확인하기. file [레벨:24]아별 2009-06-03 2378
» 메시지 박스 대용으로 Shape 사용하기 file [레벨:24]아별 2009-05-07 2414
40 유저폼 크기 조절 가능하게 만들기 file [레벨:24]아별 2009-05-07 2373
39 스스로 사라지는 메시지 박스 file [레벨:24]아별 2009-05-07 2393