2015年6月アーカイブ

毎回わざわざ ファイル → 印刷 → 設定:現在のページを印刷 → 印刷 とやるのが面倒くさいのでマクロにしてボタンにしました。あー、楽になった。

Sub PrintActivePage()
    ' ◆◆ 現在のページのみ印刷するマクロ ◆◆
    ActiveDocument.PrintOut Background:=True, Range:=wdPrintCurrentPage
End Sub

応用:

Sub PrintActivePagePlus1()
    ' ◆◆ 現在のページと次のページの2枚を印刷するマクロ ◆◆
    Dim P1, P2
    P1 = Selection.Information(wdActiveEndPageNumber)
    P2 = P1 + 1
    ActiveDocument.PrintOut Background:=True, Range:=wdPrintFromTo, From:=CStr(P1), To:=CStr(P2)
End Sub

■ ソニー、場所をとらないBlu-ray Discプレイヤー新製品――「BDP-S6500/S1500」登場 (ITmedia +D LifeStyle, 2015.6.3)
■ ソニー、Netflix対応予定の省スペースBDプレーヤー (AVWatch, 2015.6.3)
■ ソニー、Netflix&DSD対応のコンパクトなBDプレーヤー「BDP-S6500」など2機種 (Phile-web, 2015.6.3)
ソニー、NETFLIX対応のコンパクトなBDプレーヤー (マイコミ 家電FAN, 2015.6.3)

とりあえず。

  • XMB (クロスメディアバー)廃止, HTML5ベースの新メニュー
  • NETFLIX対応 (要別途契約)
  • ハイレゾ対応( S1500は192kHz/24bitまでのWAV/Flac, S6500は更にDSD5.6MHz対応)
  • BDP-S6500 : W255×D192×H39mm, 0.9kg, 20,000円前後
  • BDP-S1500 : W230×D194×H39mm, 0.8kg, 12,000円前後

あとで加筆するかも。

Sub OpenAnyFolder()
' ◆◆ いろいろなフォルダを開く ◆◆
    Dim strPath As String
    
    '***既定のファイルの場所(オプション>保存で設定)
    'strPath = Application.DefaultFilePath
    
    '***アドインフォルダ C:\Program Files\Microsoft Office\Office14\Library
    'strPath = Application.LibraryPath
    
    '***XLSTARTフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\Excel\XLSTART
    'strPath = Application.StartupPath
    
    '***ユーザーのテンプレートフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\Templates
    'strPath = Application.TemplatesPath
    
    '***ユーザーのアドインフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\AddIns
    'strPath = Application.UserLibraryPath
    
    '*** アクティブなブックが含まれているフォルダ
    'strPath = ActiveWorkbook.Path & "\"
    
    '*** 不明 ***
    'strPath = Application.AltStartupPath
    'strPath = Application.NetworkTemplatesPath
    
    'MsgBox strPath
    Shell "C:\Windows\Explorer.exe " & strPath, vbNormalFocus
End Sub
カスタム検索
Access Counter
Powered by Movable Type 4.22-ja

2016年9月

Sun Mon Tue Wed Thu Fri Sat
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30