カウンタ
プロフィール

sc440ge

Author:sc440ge
「あめた」です。大ケガをして拾われたニャン。サーバーの空き箱に入ってるニャン。
「あめた」ありがとう。
20130603

sc440ge@yahoo.co.jp
パソコン価格情報

 [2012/02/10] *

デジカメ写真に日付を一括挿入 / スライドショーの作り方 / JStamper




■■■■■■■■■■ Entry Start ■■■■■■■■■■


・ブログトップへ戻る



デジカメ写真に日付を一括挿入 / スライドショーの作り方 /JStamper

Edius Neo等でスライドショーDVDを作成するときに、日付日時を挿入したい場合があります。枚数が少ないときには、クイックタイトラーで日付を入れれば良いですが、多いときには面倒です。そこで、jpegファイルに直接日付情報を挿入してくれるフリーソフトの「JStamper」を使います。


[ EDIUS Neo ] スライドショーを作る
http://sc440ge.blog59.fc2.com/blog-entry-87.html

[ EDIUS Neo ] 動画の途中に写真のスライドショーを流す 
http://sc440ge.blog59.fc2.com/blog-entry-86.html


JStamper_000.png

[JPEG Time Stamper / JStamper ]
http://www002.upp.so-net.ne.jp/candynag/digicam/jstamper.html






[日付挿入後]

JStamper_g_after.jpg


[ EdiusNeoで表示 ]
JStamper_g_edius2.png


*デジカメの保存形式や、スライドショーの作成ソフトによってはセーフエリアが違ってくるので、設定を調整して一番良い場所を決めると良いと思います。 私の環境で「Edius Neo3」に取り込んだ場合、上の図のようになります。出力形式をブルーレイ形式(16:9)にしていますので、左右に黒帯がつきます。日付はセーフエリア内に挿入しておいた方が、安全です。





[設定例]

JStamper_A_format.png


JStamper_B_style.png


JStamper_C_save.png


JStamper_D_save.png


JStamper_E_margin.png





[使い方]

1.
JStamper_001.png


2.
JStamper_002.png


3.
JStamper_003.png


4.
JStamper_004.png


5.
JStamper_005.png


6.
JStamper_006.png


7.
JStamper_007.png


8.
JStamper_008.png






関連記事



・ブログトップへ戻る



ちょっと待ってニャン。まだ何か買うニャンか? パソはやめれないニャンか?いたずらしないからゲージから出してニャン。拍手はちょっとだけ好きニャン。
ame-thinks.jpg




ソフト | 【2012-02-10(Fri) 15:02:03】 | Trackback(-) | Comments(-)
編集  

 
Ads by Google 1
最新記事

[Key]
vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange UserForm Application.Wait Now() Application.Speech.Speak CreateObject("SAPI.SpVoice") voice.getdescription() Do While  TimeValue< Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSVActiveSheet.Hyperlinks.Add Anchor:=Selection, Address< Dir(ThisWorkbook.Path & "\*") Set myRng = myData.Find(myWord, LookAt:=xlPart) Application.WorksheetFunction.Match InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"