Presentation is loading. Please wait.

Presentation is loading. Please wait.

Powerpoint 프리젠테이션을 로 보내기 [twitter]1. 파워포인트 프리젠테이션을 트위터로 보내기[/twitter]

Similar presentations


Presentation on theme: "Powerpoint 프리젠테이션을 로 보내기 [twitter]1. 파워포인트 프리젠테이션을 트위터로 보내기[/twitter]"— Presentation transcript:

1 http://xguru.net 을 참조한 내용입니다.
Powerpoint 프리젠테이션을 로 보내기 [twitter]1. 파워포인트 프리젠테이션을 트위터로 보내기[/twitter] 을 참조한 내용입니다.

2 다들 알고있는 Social network service
다들 알고있는 Social network service. 트위터에서 제공하는 open API를 사용하면 트위터에서 주식 주문도 가능하다는 사실! [twitter] 다들 알고있는 Social network service. 트위터에서 제공하는 open API를 사용하면 트위터에서 주식 주문도 가능하다는 사실![/twitter]

3 파워포인트 프리젠테이션 내용을 실시간으로 트윗하고 싶다면?
[twitter] 파워포인트 프리젠테이션 내용을 실시간으로 트윗하고 싶다면?[/twitter]

4 파워포인트에서 vba 작성기를 엽니다. (ALT-F11 눌러요)
OnSlideShowPageChange(ByVal SSW As SlideShowWindow) 함수가 슬라이드쇼를 할 때 page down 이벤트를 받는 함수입니다. [twitter] 파워포인트에서 vba 작성기를 엽니다. (ALT-F11 눌러요)[/twitter]

5 Module을 하나 만들고 아래 코드를 쭈우욱~ 붙이세요
' 유틸리티 함수로 A 문자열부터 B 문자열 사이의 값을 읽어옵니다. ' 나나나[a]가가가[b]다다다 일때 , [a] 에서 [b] 사이의 "가가가" 문자열만 빼올때 사용합니다. Function getStringBetween(str, sstart, send) PosStart = InStr(str, sstart) PosEnd = InStr(str, send) If (PosStart > 0) And (PosEnd > 0) Then getStringBetween = Mid(str, PosStart + Len(sstart), PosEnd - PosStart - Len(sstart)) Else getStringBetween = "" End If End Function Function Tweet(tweetmsg, uid, pwd) Dim objHTTP As Object Set objHTTP = CreateObject("Microsoft.XMLHTTP") objHTTP.Open "POST", " False, uid, pwd objHTTP.send "status=" & tweetmsg Tweet = objHTTP.responseText Set objHTTP = Nothing [twitter] Module을 하나 만들고 아래 코드를 쭈우욱~ 붙이세요[/twitter]

6 계속 붙이세요. ^^ Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
Dim Shp As Shape Dim S As String On Error Resume Next S = "" ' 매 페이지의 노트안에 [twitter] [/twitter] 로 묶인 문자열이 있으면 자동으로 트윗합니다. With SSW.View.Slide.NotesPage For Each Shp In .Shapes If Shp.Type = msoPlaceholder Then If Shp.PlaceholderFormat.Type = ppPlaceholderBody Then S = getStringBetween(Shp.TextFrame.TextRange.Text, "[twitter]", "[/twitter]") If S <> "" Then strResponse = Tweet(S, “트위터 id", “트위터 password") End If Next End With End Sub

7 바로 요기!!! 슬라이드 노트에서 [twitter] [/twitter] 사이에 적어놓은 글들이 트위터로 전송됩니다.
[twitter] 슬라이드 노트에서 twitter /twitter 사이에 적어놓은 글들이 트위터로 전송됩니다.[/twitter] 바로 요기!!!

8 테스트 해보실때 자주 쓰는 계정으로 하지마세요. Follower들이 싫어해요.
저장하고, 닫고, 다시 열때 매크로 사용한다고 체크하고.. 프리젠테이션 해보면 페이지 넘길 때마다 노트의 내용이 트위터로 날아갑니다. ^^ 테스트 해보실때 자주 쓰는 계정으로 하지마세요. Follower들이 싫어해요. Twitter api 는 <끗(응?)> [twitter] 저장하고, 닫고, 다시 열때 매크로 사용한다고 체크하고.. 프리젠테이션 해보면 페이지 넘길 때마다 노트의 내용이 트위터로 날아갑니다. ^^ 끝!![/twitter]


Download ppt "Powerpoint 프리젠테이션을 로 보내기 [twitter]1. 파워포인트 프리젠테이션을 트위터로 보내기[/twitter]"

Similar presentations


Ads by Google