AFTER EFFECT 效果文字

增加字幕背景


1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / SHAPE LAYER (形狀圖層)

8 點選content(內容) / ADD (新增) / RECTANGLE(矩形)

9 點選content(內容) / ADD (新增) / FILL(填滿)

10 設定圖層為NORMAL

11 點選LAYER(圖層) / (NEW)新增 / TEXT (文字)

12 可設定位置起點與終點

註 : ELLIPSE(橢圓) , polystar(星形)

文字變色動畫

1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 點選時間軸的animate(動態) / fill color (填色) / RGB(色系)

9 設定range selector的start(起點) / 0%在0秒 , 在100 秒 設定 100%

文字變色動畫

1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 點選時間軸的animate(動態) / fill color (填色) / RGB(色系)

9點選時間軸的animator1 / ADD(新增) / selector / wiggly(扭曲作法)



10 再設定MODE 會有不同的效益喔

subtract : (文字彩度提高 , base on ( 設定字元或單字) second (以秒變化的速度)

11點選時間軸的animator1 / ADD(新增) / property / scale(比例)

設定為10%

position(位置) skew(斜度) tracking(追蹤)

文字模糊變清晰

1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 點選時間軸的animate(動態) / BLUR (模糊)

9點選時間軸的RANGE SELECTOR (範圍選取)

10 設定START 與BLUR(會有不錯的答案)
路徑文字


1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 繪製路徑 / 使用鋼筆 / 設定PATH 至 MASK

9點選時間軸的PATH (路徑) / 修改FIRST MARGIN值

再一次

Sub 流水號()




Columns("A:A").Select

Selection.Insert Shift:=xlToRight

Range("A1").Select

ActiveCell.FormulaR1C1 = "no"

Range("A2").Select

ActiveCell.FormulaR1C1 = "1"

Range("A2").Select

Selection.AutoFill Destination:=Range("A2:A246"), Type:=xlFillSeries

Range("A2:A246").Select

Range("N2").Select

End Sub

Sub 排序()



Range("A1:U246").Sort Key1:=Range("N2"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

SortMethod:=xlStroke, DataOption1:=xlSortNormal

End Sub

Sub 新工作表()

Dim x, sht_name

Sheets(Sheets.Count).Select

Range("N2").Select



While (ActiveCell.Value <> Empty)

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then



ActiveCell.Offset(1, 0).Select



Else



sht_name = ActiveCell.Value

ActiveCell.Offset(1, 0).Select



Sheets.Add

x = Sheets.Count - 1

Sheets(x).Name = sht_name

Sheets(Sheets.Count).Select



End If



Wend





End Sub



Sub 資料比對()

Dim x



Sheets(Sheets.Count).Select

Range("A1").Select



For i = 1 To Sheets.Count - 1



x = Sheets(i).Name

Selection.AutoFilter

Selection.AutoFilter Field:=14, Criteria1:=x

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Selection.Copy

新檔



ActiveSheet.Paste

Application.CutCopyMode = False



存檔

關檔





Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter



Next

End Sub



Sub 資料分類()

流水號

排序

新工作表

資料比對

刪除工作表

End Sub

Sub 新檔()



Workbooks.Add

End Sub

Sub 存檔()

Dim x



x = Range("N2").Value



ActiveWorkbook.SaveAs Filename:=x & ".xls", FileFormat:=xlNormal, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

End Sub

Sub 關檔()





ActiveWindow.Close

End Sub

Sub 刪除工作表()

Dim x, i

i = Sheets.Count



For x = 1 To i - 1



Sheets(x).Select

ActiveWindow.SelectedSheets.Delete



Next

End Sub

快速分類

Sub 流水號()




Columns("A:A").Select

Selection.Insert Shift:=xlToRight

Range("A1").Select

ActiveCell.FormulaR1C1 = "no"

Range("A2").Select

ActiveCell.FormulaR1C1 = "1"

Range("A2").Select

Selection.AutoFill Destination:=Range("A2:A246"), Type:=xlFillSeries

Range("A2:A246").Select

Range("N2").Select

End Sub

Sub 排序()



Range("A1:U246").Sort Key1:=Range("N2"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

SortMethod:=xlStroke, DataOption1:=xlSortNormal

End Sub

Sub 新工作表()

Dim x, sht_name

Sheets(Sheets.Count).Select

Range("N2").Select



While (ActiveCell.Value <> Empty)

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then



ActiveCell.Offset(1, 0).Select



Else



sht_name = ActiveCell.Value

ActiveCell.Offset(1, 0).Select



Sheets.Add

x = Sheets.Count - 1

Sheets(x).Name = sht_name

Sheets(Sheets.Count).Select



End If



Wend





End Sub



Sub 資料比對()

Dim x



Sheets(Sheets.Count).Select

Range("A1").Select



For i = 1 To Sheets.Count - 1



x = Sheets(i).Name

Selection.AutoFilter

Selection.AutoFilter Field:=14, Criteria1:=x

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Selection.Copy

Sheets(x).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter



Next

End Sub



Sub 資料分類()

流水號

排序

新工作表

資料比對

End Sub

大家

各位好,



教育部推動的產業碩士專班100年度春季班, 世新大學即將於11/30~12/6 報名.



麻煩各位協助轉寄給同事及朋友們, 並鼓勵他們前來報考.



相關基本資料說明



1. 報名日期: 2010/11/30~2010/12/6



2. 筆試及口試日期: 2010/12/25(資訊軟體班), 2010/12/26(數位內容班)



3. 放榜: 2011/01/07



4. 修業期間: 2011/02/01~2012/07/31 共1年6個月



5. 學雜費: 每學期5萬元整



p.s. 簡章連結網址: http://www.shu.edu.tw/bbs/AnnounceDetail1.aspx?sID=7197

VBA ADIDAS

Sub 開檔()




Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\2.xls"

Sheets("Comparison").Select

Range("A4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False

Selection.End(xlToRight).Select

ActiveCell.Offset(0, 2).Select



Windows("2.xls").Activate

ActiveWindow.Close

End Sub

Sub 調整()

'

' 調整 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

Cells.Select

Cells.EntireColumn.AutoFit

Range("A1").Select

End Sub

Sub 開檔二()



Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\1.xls"

Sheets("Comparison").Select

Range("C4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False



Windows("1.xls").Activate

ActiveWindow.Close

End Sub











Sub 整合()

開檔

開檔二



調整





End Sub



Sub 儲存()

'

' 儲存 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

ActiveWorkbook.SaveAs Filename:="C:\Users\alexmysir\Desktop\07.FW11\21.xls", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

好康的報您知

各位好,




教育部推動的產業碩士專班100年度春季班, 世新大學即將於11/30~12/6 報名.



麻煩各位協助轉寄給同事及朋友們, 並鼓勵他們前來報考.



相關基本資料說明



1. 報名日期: 1010/11/30~2010/12/6



2. 筆試及口試日期: 2010/12/25(資訊軟體班), 2010/12/26(數位內容班)



3. 放榜: 2011/01/07



4. 修業期間: 2011/02/01~2012/07/31 共1年6個月



5. 學雜費: 每學期5萬元整



p.s. 簡章連結網址: http://www.shu.edu.tw/bbs/AnnounceDetail1.aspx?sID=7197

太站了 , 好康到不行

大家可以多多宣傳喔

也要報名喔

今天真好玩

什麼都教 學生是長官 什麼都學

不錯的PHOTOSHOP筆刷

這個是由娜娜老師提供 , 韓老師轉貼在FACEBOOK
本人分享在此 http://fbrushes.com/

好心人士提供的 , 分享給大家

http://hospital.kingnet.com.tw/medicine/
查詢藥品專用

不錯新建網站

空間資訊
【網站網址】http://go.freegroup.org/hostinginfive
【範例網站】http://freegroup.hostinginfive.com/

【網站空間】500MB (0.5GB)
【每月流量】15,000MB (15GB)
【提供項目】PHP 5, MySQL(1個), FTP, XPanel控制台, 可設定自己的網域名稱, 網頁檔案管理。
【顯示廣告】有廣告，網站頂端。

1. 進入 HostingInFive 後，點選 Sign Up For Hosting 註冊一個帳號。第一步必須先輸入一個你想要的次網域名稱，而這個次網域也會成為你的登入帳號。第二個步驟則依序填入個人資料即可，都是常見的欄位，應該不會太困難。




Free Web Hosting | Free Unlimited Email | Instant Email | Free Web Proxy | Surf Anonymously | Free Text Messaging



If you can see this, your account alexmysir.hostinginfive.com has been successfully created.
You may now add content to this directory and replace this page.

Your address is: http://alexmysir.hostinginfive.com.
Alex Mysir you are solely responsible for the contents of your site.
Any inappropriate sites will be deleted with no warning.

Thank you for using our services.

網頁新字型

真是很站 大家可以參考喔
http://www.freegroup.org/2010/06/google-font-directory/

很高興認識大家

今天我在台北市政府學blog這是市府服務大家很站

有新工作大家參考喔

職缺編號擔任工作學歷及資格條件工作
地點需求
員額
990901【資安服務平台開發建置及軟硬體設備建置規劃】
1. 資安服務平台開發、建
　置、管理及維護
2. 資安軟硬體設備測試、
　建置、調教、管理及維
　護
3. 資安監控、分析與通報1.研究所畢業。
2.所需專長及相關工作經驗：
　(1) 具程式設計開發(PERL、PHP、
　　Java及Web Application等)及系統整
　　合一年以上經驗者。
　(2) 具SOC服務平台或資安硬體設備
　　建置及維運管理尤佳。
　(3) 具備資安防護技術與經驗者尤佳
　　。
　(4) 熟悉網際網路協定(TCP/IP、
　　SNMP、ICMP、FTP、HTTP)運作
　　模式。
　(5) 熟悉OWASP網頁安全技術議題
　　。台北
地區5名
990902【安全檢測】
1. 弱點掃描、滲透測試及
　安全性檢測
2. 惡意電子郵件社交工程
　演練
3. 駭客攻防新技術研究及
　開發1.研究所畢業。
2.所需專長及相關工作經驗：
　(1) 具備網頁程式開發能力(C/C++、
　　PHP、JSP ASP、ASP.NET等)一年
　　以上經驗者。
　(2) 具備安全檢測或滲透測試經驗者
　　尤佳。
　(3) 熟悉網際網路協定(TCP/IP、
　　SNMP、ICMP、FTP、HTTP)運作
　　模式。
　(4) 具備CEH、CHFI、CISSP證照者
　　尤佳。
　(5) 熟悉OWASP網頁安全技術議題
　　。台北
地區4名
　　合計9名
※備註：有關資格條件所稱工作經驗，係指具全職之相關工作經驗者。　

今天學到很多

學到MSN SKYPE BLOG FACEBOOK PLURK 但是順間全忘了