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

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

조회 수 16089 추천 수 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/a48/trackback
목록
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 34033

기타 엑셀 기본 제공 대화 상자 인수 목록 file

  • [레벨:30]아별
  • 2009-11-04
  • 조회 수 8047

엑셀2007에서 셀의 색상을 RGB로 뽑아내기 file

  • [레벨:30]아별
  • 2009-10-06
  • 조회 수 10256

[VBA팁] 화일이 존재하는지 확인하기

  • [레벨:30]아별
  • 2009-07-31
  • 조회 수 8041

엑셀에서 사용하는 언어 확인하기. file [1]

  • [레벨:30]아별
  • 2009-06-03
  • 조회 수 13831

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

  • [레벨:30]아별
  • 2009-05-07
  • 조회 수 16089

유저폼 크기 조절 가능하게 만들기 file

  • [레벨:30]아별
  • 2009-05-07
  • 조회 수 5880

스스로 사라지는 메시지 박스 file [1]

  • [레벨:30]아별
  • 2009-05-07
  • 조회 수 5635

마우스 좌표를 반환 받기 file

  • [레벨:30]아별
  • 2009-05-07
  • 조회 수 5850

[펌] Excel Macro(VBA) 입문자를 위한 소개자료 image

  • [레벨:30]아별
  • 2008-12-19
  • 조회 수 6670

기타 [Excel VBA] 피벗테이블(PivotTable)을 VBA로 컨트롤해보자..

  • [레벨:30]아별
  • 2008-12-19
  • 조회 수 12217

[펌] 엑셀로 최대 공약수 구하기 [2]

  • [레벨:30]아별
  • 2008-12-18
  • 조회 수 5298

바로 옆셀의 메모값 가져 오기 [1]

  • [레벨:30]아별
  • 2008-10-20
  • 조회 수 5514

[엑셀VBA] ERROR CODE file

  • [레벨:30]아별
  • 2008-08-28
  • 조회 수 7406

[엑셀VBA] 자동필터를 매크로로 구현하기

  • [레벨:30]아별
  • 2008-08-28
  • 조회 수 11275

[VBA] 전역변수 설정하기. Public 문, Private 문 imagefile

  • [레벨:30]아별
  • 2008-07-01
  • 조회 수 14109

[엑셀VBA] 네이버 지식인 답변 _ 엑셀 쿼리를 이용해서 펀드 기준가 데이터를 읽어오기. file

  • [레벨:30]아별
  • 2008-04-30
  • 조회 수 9184

엑셀 추가 기능 만들기

  • [레벨:30]a☆
  • 2006-01-19
  • 조회 수 7384

메모 입력할때 사용자 이름 제거하고 입력하기..

  • [레벨:30]a☆
  • 2006-01-19
  • 조회 수 5429

시트에서 콤보박스 활용하기 file

  • [레벨:30]a☆
  • 2005-11-12
  • 조회 수 16768
목록
쓰기