aftereffect 文字動畫

文字預設動畫設計


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

2 File (功能表) / import (匯入) / files (二個圖檔案)

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

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取LAYER (圖層) /NEW / TEXT / 輸入文字內容 / OK

7 選取右側 effect & preset / 選取animation presets / 選取 TEXT / 選取FILL& STROKE / 套用 pluse blue / 拖曳到時間軸

8 選取右側 effect & preset / 選取animation presets / 選取 TEXT / 選取miscellaneous(雜項)/ 套用 squeeze (擠) / 拖曳到時間軸
3D文字動畫設計


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

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

4 選取上圖層 / effect / generate / ramp(漸層色) / effect / generate / GRID(網格) / 設定size from = slider , mode = overlay(覆蓋)

5 按一下3D鈕 / 設定3D參數



6 layer / NEW / TEXT / 輸入文字內容 / OK

7 選取3D 鈕 / 再設參數

aftereffect

文字遮罩設計


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

2 File (功能表) / import (匯入) / files (二個圖檔案)

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

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取LAYER (圖層) /NEW / solid / OK

7 選取右側 effect & preset / 選取animation presets / 選取 backgrounds / 選取indigestion背景動畫範本

8 拖曳到時間軸 / 點選時間軸上的brainstom[腦力激盪]鈕 – 可產生亂數 .

9 請自行加字如 : ALEX

10 選取layer / auto-trace / 設定參數 mask -> invert

11 關閉文字圖層顯示

after effect 幾何形狀

幾何遮罩設計(mask)


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

2 File (功能表) / import (匯入) / files (二個圖檔案)

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

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取時間軸上層的圖片 / 選取 ELLIPSE TOOL 工具 (圓形遮照工具) / 繪製一個圓

7 設定 MASK( 參數 為ADD 與勾選 INVERTED項目

請於不同的時間點增加KEY FRAME(關鍵影格) / 並改變圓的大小或位置 / 即可預覽結果喔

形狀設計(STAR)

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

2 File (功能表) / import (匯入) / files (二個圖檔案)

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

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取LAYER (圖層) / SHAPE LAYER / 選取 ADD / POLYSTAR(星型)

7 選取 ADD / FILL(填色) / 改變色彩 / 調整 polystar prth1 參數可有不同的圖案

8 選取 ADD / pucker bloat(皺褶膨脹) /調整參數

9 選取 ADD / repeater(重覆) /調整重覆參數

請設定SCALE POSITION REPEATER ROATE等時間點增加KEY FRAME(關鍵影格) 即可預覽結果喔

after effect 光源效果

立體光源效果


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

2 Composition(合成) / new Composition(新增合成)

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

4 File (功能表) / import (匯入) / file (圖片檔)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I

6點選LAYER(圖層) / 3d layer [ 打光才有用]

7點選LAYER(圖層) / (NEW)新增 / LIGHT(光)

8 設定光線內容 / 點選圖像圖層的燈箱 (小的立體方塊) / 執行播放(TRACK CONTROLS)



Spot 聚光 point點光 ambient自然光 cone angle 角光

雷射光效果


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

2 Composition(合成) / new Composition(新增合成)

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

4 File (功能表) / import (匯入) / file (圖片檔)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I

6點選EFFECT(效果) / generate(一般) / CC light RAYS(雷射光)

8 設定光線內容

INTENSITY : 強度

註 : SWEEP 掃描光 BURST (爆炸光)

光暈效果


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

2 Composition(合成) / new Composition(新增合成)

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

4 File (功能表) / import (匯入) / file (圖片檔)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I

6點選EFFECT(效果) /STYLIZE(樣式) / GROW(光暈)

8 設定光線內容

INTENSITY : 強度

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