2017年06月23日

【Exel VBA】ハイパーリンクの画像を自動貼り付け関数

Excelのメニューから 開発 ー Visual Bbasic
→ VBAProjectを右クリック → 挿入 → 標準モジュール
→ 以下のコードを貼り付け

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
'指定セルにハイパーリンクされた画像ファイルのフルパスをカレントセルに表示し、
'その画像を左隣セルに貼りつける関数
'---- pic_paste(セル番号)----
'
Function pic_paste(fname As Range)
Const n As Long = 2 'margin
Dim r As Range
Dim i As Long
Dim x As Double
Dim s As String

Set r = Application.ThisCell.Offset(0, 1).MergeArea

If fname.Hyperlinks.Count > 0 Then
s = fname.Hyperlinks(1).Address
Else
s = "--"
End If

ChDir ActiveWorkbook.Path

If Dir(s) = "" Then
pic_paste = s
Else
'Dir Application.Path
pic_paste = s
With ActiveSheet.Pictures.Insert(s).ShapeRange
.LockAspectRatio = msoTrue
x = Application.Min(r.Width / .Width, (r.Height - n) / .Height)
.Width = .Width * x
.Left = r.Left
.Top = r.Top + n / 2
End With
End If

End Function
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
posted by 貝貝 at 09:23| Comment(0) | TrackBack(0) | Windows | このブログの読者になる | 更新情報をチェックする

2017年06月12日

EnCase テーブルペインのExport(TAB区切りtxt)

Save As で、表示中のテーブルをCSV等で保存できる
EnCase テーブルペインのExport(TAB区切りtxt).jpg
posted by 貝貝 at 09:05| Comment(0) | TrackBack(0) | EnCase | このブログの読者になる | 更新情報をチェックする

Yahooメールのimap一括受信に関するトラブルシューティング(Thunderbird等利用の場合)

記事の件名: yahooメールの受信についてのご相談です。投稿記事Posted: 2015年6月14日(日) 19:53
[windows7 Thunderbird38.0.1]

yahooメールを受信しているのですがThunderbirdを立ち上げるたびに[サーバ pop.mail.yahoo.co.jp へのログインに失敗しました。]と
表示され正しいパスワード入力しても[ユーザ XXXXXのパスワードを送信できませんでした。 メールサーバ pop.mail.yahoo.co.jp からの応答: Incorrect username or password.]と表示されます。
正しいパスワードを何度入力してもそのような状態です。

応急処置としては毎回yahooのパスワードを変更し受信をしています。
なぜかパスワード変更後に再入力すると受信できてThunderbirdを終了しない限りは送受信できるようです。

前々からではなくここ1ヶ月くらい前からこのような状態になりました。

【回答】
私も同じようにはまりましたが、解決しましたので参考になればと思います。
YahooJapanのWEBページからログインするときに(一旦ログオフしてください。)、「ログインしたままにする」というチェックボックスがあると思うのですが、このチェックを外して、ログイン後にログオフしてください。
このチェックを外さないでログオフしても効果はありませんでした。
posted by 貝貝 at 08:48| Comment(0) | TrackBack(0) | Internet | このブログの読者になる | 更新情報をチェックする

2017年06月08日

AppleデバイスのKeyChain表示方法(パスワード一覧)

【Mac OS X】
まずアプリケーション、ユーティリティから「キーチェーンアクセス」を起動する。保存してある鍵一覧が表示されるので、その中から該当するものを選択してダブルクリック。
無線LANルータのパスワードを調べたいのであれば、「種類」をクリックして種類別に並び替え、「AirPort network password」の中から対象を見つければいい。
ダブルクリックして表示されるダイアログに「パスワードを表示」というチェックボックスが見つかるので、これをクリック。ユーザアカウントのパスワードを求められるので入力する。パスワードが表示されるので、この値を覚えておく。

【iOS】
• 「設定」 → 「Safari」 → 「パスワードと自動入力」をタップします
• 「保存されたパスワード」をタップします
• デバイスのパスコードを入力します
• パスワードを表示したいサイトをタップします
• パスワードが表示されます

posted by 貝貝 at 18:05| Comment(0) | TrackBack(0) | Mac | このブログの読者になる | 更新情報をチェックする

ジャンプリストの解析方法

C:\Users\(ユーザー名)\AppData\Roaming\Microsoft\Windows\Recent\AutomaticDestinations
に保存された各アプリ別の使用ファイル履歴DBをパースする
 Nirsoft JumpListView
 EnScript link_file_jump_list_parser_(v3-0-1).enpack 

アプリ名はID化されているので、判明させるには公開リストとの照合等が必要。
 → http://port139.hatenablog.com/entry/2014/07/13/064250
posted by 貝貝 at 17:58| Comment(0) | TrackBack(0) | Windows | このブログの読者になる | 更新情報をチェックする

OperaのWeb履歴・キャッシュ解析

現在のバージョンはChromeベースのエンジンになったため、NirsoftのChromeHistViewとChromeCacheViewで解析できる。

OperaのHistoryデータ
C:\Users\(ユーザー名)\AppData\Roaming\Opera Software\Opera Stable\History

Operaのキャッシュデータ
C:\Users\(ユーザー名)\AppData\Local\Opera Software\Opera Stable\Cache
posted by 貝貝 at 17:46| Comment(0) | TrackBack(0) | Windows | このブログの読者になる | 更新情報をチェックする

最近使った項目(Recent)のショートカットファイルのパース方法

以下のPower Shellのスクリプトを使う

filter Get-Shortcut()
{
$shell = new-object -comobject WScript.Shell
return $shell.CreateShortcut($_)
}
cd "C:\Users\(ユーザー名)\AppData\Roaming\Microsoft\Windows\Recent"
dir -r -include "*.lnk" | Get-Shortcut | Select-Object -property TargetPath,FullName | Export-Csv ../WinLnkParse_results.txt -encoding UTF8

結果は、WinLnkParse_results.txt にCSV形式で出力される
posted by 貝貝 at 17:26| Comment(0) | TrackBack(0) | Windows | このブログの読者になる | 更新情報をチェックする