[PPT] 파워포인트 전체 페이지 넣는 VBA 스크립트

박영식2009.04.24 05:36조회 수 7041댓글 0

1
- 글자 크기

반드시 해야할 것.
마스터 보기에서 삽입->머리글/바닥글
바닥글의 체크박스를 체크하고, 모두적용을 클릭함.
아래 그림과 같이, "바닥글"영역이 존재해야 error가 나지 않음.(for문의 시작을 2로 했기 때문에 첫 슬라이드는 바닥글이 존재하지 않아도 됨)^^V

1. Alt+F11(Visual Basic Editor)
2. 삽입 -> 모듈
3. 모듈창에 아래와 같이 입력
4. 실행(F5)하면 바닥글 위치에 표시됩니다.

Sub dhUserPage()
    Dim i As Integer, j As Integer

    With ActivePresentation
        If .Slides.Count > 1 Then
            For i = 2 To .Slides.Count
                .Slides(i).HeadersFooters.Footer.Text = i & "/" & .Slides.Count
            Next i
        End If
    End With
End Sub

박영식 (비회원)

1
- 글자 크기

[XML] Dublin Core(DC) (by 박영식) [수상] 창업경진대회 후속상 (by 박영식)

수정 삭제

댓글 달기

검색 정렬

[OSX] VMWARE 에 WINDOWS 설치 후, 키보드 매핑

[원문보기]

http://docs.cena.co.kr/?mid=textyle&category=13620&document_srl=17478

위 사이트를 참고하였다.

Left Option(0038) -> Left Windows(E05B)

Left Command(E05B) -> Left Alt(0038)

Right Control(E01D) -> Context Menu(E05D)

Right Option(E038) -> 한자(E071)

Right Command(E05C) -> 한글(E072)

위와 같이 변경해 보았으나, 기본적으로 Left Command + Tab이 OSX의 창 전환 기능이기 때문에, WINDOWS에서 사용할 수 없다. 그래서 HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlKeyboard Layout

에서 Scancode Map의 데이터를 다음과 같이 입력했다.

00 00 00 00 // Map Header

00 00 00 00 // Map Version

06 00 00 00 // Count (DWORD)

5B E0 5B E0 // Left Command(E05B) -> Left Windows(E05B)

38 00 38 00 // Left Option(0038) -> Left Alt(0038)

5D E0 1D E0 // Right Control(E01D) -> Context Menu(E05D)-> 내 맥북 AIR에는 없다

71 E0 38 E0 // Right Option(E038) -> 한자(E071)

72 E0 5C E0 // Right Command(E05C) -> 한글(E072)

00 00 00 00

이렇게 하여, 한자, 한글만 적용했다.

[GIT] github의 기본적인 명령어

[원문보기]

git reset : add나 rm 명령들을 제거한다.

git는 명령어를 사용하면 commit하고, push 하기 전 까지 완전히 적용이 안 된다.

따라서 add/rm 후, commit 하여 local repository에 적용시키고, push하여 remote repository에 까지 업데이트 한다.

1. git add[rm] 파일명

2. git commit -m "메시지"

3. git push origin master

업데이트 된 내용을 받으려면

git pull

하면 된다.

git checkout -- <파일> : 현재 작업 중인 파일 중 수정된 파일을 index에 있는 것으로 원복

git reset --hard : 현재 작업 중이 파일을 모두 원복 시킴

git reset -- <파일명> : add같은 명령어로 인덱싱한 것을 취소함

[다음View] 외부게시글 이용해 등록하기

[원문보기]

이미, 블로그가 다음View 에 가입되어 있는데, 외부 게시판에서 등록하고 싶다면, 새로운 아이디를 만들어야 한다.

그래야 가입하기 버튼이 잘 나온다.

xe의 경우 http://주소/xe/?mid=test1&act=rss 로 rss경로를 바꿔줘야 하는데, 이부분은 MY다음view에서 새글보내기를 누르고 설정할 수 있다. 이런 건 설명이 제대로 안 되어 있어서, 날 여러날 괴롭혔다. T.T;;;;

[Tip] Windows NT/2000/XP/2003/Vista 비밀번호 분실 해제

[원문보기]

비밀번호를 잊었다면.

아래의 과정을 시작한다.

버전에 따라서 Password & Registry Tools 번호가 다를 수 있다.

9.9를 이용하길 추천한다.

아래 화면에서 1이나 2를 통해 OS를 찾는다.

얼마간의 시간이 지나면

아래와 같이 발견된 sam 파일을 표시한다.

원하는 계정을 선택하고

Y를 누르면 완료된다.

Esc로 빠져나간 후 재부팅 하면 password가 해제된 것을 확인할 수 있다.

[XML] Dublin Core(DC)

[원문보기]

개념
1995년 OCLC(Online Computer Library Center)와 NCSA(National Centre for Supercomputer Application)가 더블린(Dublin)에서 개최한 워크숍에서 합의된 메타 데이타
데이타의 호환성을 유지
네트웍크 자원의 기술에 필요한 일련의 데이타 요소를 규정
자원의 신속한 검색 지원
목적
데이타의 형식/구조 단순화
원문의 저자나 발행자
메타 데이타를 직접 작성
네트웍크 출판을 위한 저작도구의 개발자
메타 데이타에 대한 템플릿을 직접 소프트웨어에 포함할 수 있도록
작성된 데이타를 기초로 특정 분야에서 요구되는 상세한 수준으로 확장 사용

Dublin Core 15개 데이터 요소
콘텐츠 기술(내용) 요소	지적속성요소	물리적 기술(구현)요소
Title(표제) Subject(주제) Description(설명) Source(출전) Language(언어) Relation(관련자료) Coverage(내용범위)	Creator(제작자) Publisher(발행처) Contributor(기타제작자) Right(이용조건)	Date(발행일자) Type(자료유형) Format(형식) Identifier(식별자)

[XML] Dublin Core(DC)

[원문보기]

Dublin Core 15개 데이터 요소
콘텐츠 기술(내용) 요소	지적속성요소	물리적 기술(구현)요소
Title(표제) Subject(주제) Description(설명) Source(출전) Language(언어) Relation(관련자료) Coverage(내용범위)	Creator(제작자) Publisher(발행처) Contributor(기타제작자) Right(이용조건)	Date(발행일자) Type(자료유형) Format(형식) Identifier(식별자)

[수상] 창업경진대회 후속상

[원문보기]

[창업일지] 통신판매업 폐업신고

[원문보기]

계양구청 지역경제과에서 계속 전화해서, 몸소 갔다왔다. 제길슨... 폐업신고서를 역시 작성해서 원본과 함께 민원여권과 4번 창구에 제출함.T.T;;;

[창업일지] 폐업신고

[원문보기]

사업자등록증 원본을 들고가서, 폐업신고서와 함께 제출하면 끝!

뭐야.. 별거 아니잖아...

잠깐 실업급여나 신청해 볼까.. 음... 좀 더 알아보고....

[WCAG] 플래시 대체 텍스트

[원문보기]

터보코드

[원문보기]

bdclose all;
set_param(0, 'CharacterEncoding', 'windows-1252');

simulink를 저장하기 전에 위와 같이 encoding을 변경해준다. 폴더나 파일명이 한글이면 안된다.

melfb.m

[원문보기]

function m = melfb(p, n, fs)
p=9;
n=2048;
fs=2000;
f0 = 700 / fs;
fn2 = floor(n/2);

lr = log(1 + 0.5/f0) / (p+1);

% convert to fft bin numbers with 0 for DC term
bl = n * (f0 * (exp([0 1 p p+1] * lr) - 1));

b1 = floor(bl(1)) + 1;
b2 = ceil(bl(2));
b3 = floor(bl(3));
b4 = min(fn2, ceil(bl(4))) - 1;

pf = log(1 + (b1:b4)/n/f0) / lr;
fp = floor(pf);
pm = pf - fp;

r = [fp(b2:b4) 1+fp(1:b3)];
c = [b2:b4 1:b3] + 1;
v = 2 * [1-pm(b2:b4) pm(1:b3)];

m = sparse(r, c, v, p, 1+fn2);
size_m = size(m);
plot(linspace(0, (fs/2), (n/2)+1),m);
%title('Mel-scale filter bank');
xlabel('Frequency (Hz)');
set(get(gca,'xlabel'),'FontSize',20);
ylabel('Amplitude');
set(get(gca,'ylabel'),'FontSize',20);
set(gca, 'XTick',[0:100:2000], 'XTickLabel',[0:100:1000],'fontsize',20);
set(gca, 'YTick',[0:1:2], 'YTickLabel',[0:1:2],'fontsize',20);

Hamming Window Amplitude Response

[원문보기]

% Chapter 7: Hamming Window Amplitude Response

M = 45; alpha = (M-1)/2;

n = -alpha:alpha;

w = (hamming(M))'; sumw = sum(w);

N = 1000; omega = (2*pi/N)*[-N/2:N/2];

Wr = real(w*(exp(-j*n'*omega)));

db = 20*log10(abs(Wr)/max(Wr));

IntWr = cumsum(Wr);

Intdb = 20*log10(abs(IntWr)/N);

k = (N/2+1) - min(find(Intdb > -53));

tr_width = 2*k*2*M/N, %actual transition width in pi/M units

omega1 = -(tr_width/2)/M; omega2 = (tr_width/2)/M;

% plots

subplot(1,1,1)

subplot(2,2,1); stem(n,w);

axis([-(alpha+8),(alpha+8),-0.1,1.1]);

set(gca,'YTickMode','manual','YTick',[0,1])

set(gca,'XTickMode','manual','XTick',[-22,0,22]);

title('Hamming Window : M=45')

xlabel('n'); ylabel('w(n)')

subplot(2,2,3); plot(omega/pi,Wr);

axis([-1,1,-2,sumw+5]);

set(gca,'YTickMode','manual','YTick',[0,sumw])

set(gca,'XTickMode','manual','XTick',[-1,0,1]); grid

set(gca,'XTickLabelMode','manual','XTickLabels',[' 0';'22';'45']);

title('Amplitude Response')

xlabel('frequency in pi units'); ylabel('Wr')

subplot(2,2,2); plot(omega/pi,db);

axis([-1,1,-60,10]);

set(gca,'YTickMode','manual','YTick',[-60,-42,0])

set(gca,'YTickLabelMode','manual','YTickLabels',['60';'43';' 0'])

set(gca,'XTickMode','manual','XTick',[-1,0,1]);grid

title('Amplitude Response in dB')

xlabel('frequency in pi units'); ylabel('Decibels')

subplot(2,2,4); plot(omega/pi,Intdb);

axis([-1,1,-70,10]);

set(gca,'YTickMode','manual','YTick',[-70,-54,0])

set(gca,'YTickLabelMode','manual','YTickLabels',['70';'54';' 0'])

set(gca,'XTickMode','manual','XTick',[-1;omega1;omega2;1]);grid

set(gca,'XTickLabelMode','manual','XTickLabels',['-1';' ';' ';' 1'])

title('Accumulated Amplitude Response')

xlabel('frequency in pi units'); ylabel('Decibels')

text(omega2,5,'Width=(6.6)*pi/M')

창업일지-세금 환급

[원문보기]

ㅍ

travelling salesman problem

[원문보기]

http://webscripts.softpedia.com/script/Miscellaneous/Traveling-Salesman-Problem-34479.html

배열의 사용
1. (:,1) 하면, 1열의 정보를 출력한다.
2. (1,:) 하면, 1행의 정보를 출력한다.
3. [mat mat(1)]하면, 첫행의 정보를 뒤에 덧붙인다.
4. zeros(2,4) 하면, 2x4의 0행렬을 만든다.
5. randperm(x)하면, 1~x까지의 랜덤한 자연수 배열을 만든다.
6. plot은 x,y의 2차 그래프를 그린다.
7. plot3는 x,y,z의 3차 그래프를 그린다.
8. text 함수는 임의의 위치에 문자를 출력한다.
9. colormap sets the current figure's colormap to MAP.
10. flipud함수는 아래와 같이 바꾼다.
  X = 1 4               3 6
        2 5               2 5
        3 6               1 4

flex 외부 변수 이용, 받기, 현재 url

[원문보기]

http://www.abdulqabiz.com/blog/archives/macromedia_flex/how_to_get_url.php

나는 제목과 같은 검색어로 꾸준히 찾았던 것 같다.

역시 방법은 있었다.

우....

친절하게 소스파일까지...ㅋㅋ

json encoding, decoding

[원문보기]

json에 관한, flex에 대해서도 흥미로운 자료가 많다.

그런데, 무작정 갖다 쓰는게 부담이 된다.. 또한 홍길동이 벌써 서른이라니.....

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" initialize="initApp()">
        <mx:Script>
                <![CDATA[
                        import com.adobe.serialization.json.JSON;
                        import mx.controls.Alert;

                        private function initApp():void{
                                var obj:Object = new Object();
                                obj.name="홍길동";
                                obj.age=30;

                                var json:String = JSON.encode(obj);
                                trace(json);

                                var obj2:Object = JSON.decode(json);
                                mx.controls.Alert.show(json + obj2.name + "," + obj2.age);
                        }
                ]]>
        </mx:Script>
</mx:Application>

파일1은 flex관련 문서이고, file2는 flex용 json라이브러리이다.

창업일지 - 홈페이지에 CCL 표기

[원문보기]

라이센스에 대한 구분이 필요해졌다.

2008년 7월 16일 - 부가세 확정신고

[원문보기]

예정신고를 했기 때문에, 4~6월분만 했다.

활용한 함수

[원문보기]

set(handles.in_play,'enable','on');

속성을 변경한다.

if (strcmp(fs_ampl,' ') || str2num(fs_ampl)<=50)
msgbox('50보다 큰 값을 입력하세요');

if의 여러 값을 체크하는 연산자

axes(handles.axes4);
plot(0,0);

plot을 0,0으로 하여, 초기화 효과를...

검색 정렬

이전 1 2 3 4 5 6 7 8 9 다음

APLOS BOARD 2 FREE LICENSE
DESIGN BY MACARON

검색

첨부 (0)

imp

[PPT] 파워포인트 전체 페이지 넣는 VBA 스크립트

댓글 달기

댓글 달기 닫기