投稿

11月, 2017の投稿を表示しています

KINGTOP K11 GAMING HEADSET

イメージ
先週までの週末いつも雨で走ることができず、PS4の地KINGTOP K11 GAMING HEADSET球防衛軍4.1を買ってしまい、はまってしまいました。会社の後輩が面白いっすよ!と言ったのですが、本当に面白い。 平日はできませんが、土日の深夜に会社の後輩とオンラインプレイをしているのですが、私はすぐやられてしまい、迷惑をかけています・・・ チャットも素早くできないので、音声で会話した方が良いだろうということで、KINGTOP K11 GAMING HEADSETを買いました。 PS4はリビングに設置ですが、娘が勉強するリビングで球防衛軍4.1をやるのも気が引けます。もっぱらPCからリモートプレイで球防衛軍4.1をやっています。 ベルベットの袋に収納されています。 付属品などです。光らないので?USBプラグはありません。シンプルです。 3000円と値段なりの装着感です。 7.1chサラウンドヘッドフォン SONY MDR-DS7500 の装着感には及びません。ただし、音は期待以上で、低音もそこそこなっていました。 マイクのオン/オフ切り替えです。少し安っぽいです。 マイクはまだ使っていません。 マイク部分は曲げられます。 コントローラーのオーディオ出力に接続しても、PCからのリモートプレイではヘッドフォンから音は出ません。 PCからのリモートプレイでは、PCのオーディオ出力に接続しなければならないようです。

PowerPointでオブジェクトを一覧にしてテキストファイルへ出力する。

イメージ
背景 パワーポイントを使って、画像のフロア図面上に、PC等の機器をオブジェクト(シェイプ)としてプロットし、PC等配置図を作っているのを見かけました。何故器機配置図をパワーポイントで作っているのかは謎ですが。どうやら、フロア図面を作る部署ではCADが使えないとか、諸般の事情があるようです。そして、フロアごとにPC台数やプリンター等を算出しろとか来たみたいで、印刷して手作業で数えているのをみて?と思い、ちゃちゃっと作ってみました。今後も何度も数えそうなので。器機配置図を作るのにパワーポイントが最適ななのか?甚だ疑問ですが、環境には逆らえないという、制約があるそうです。 どんなものを作ってみたのか あくまでもサンプルです。シェイプ又は画像に機器属性を割り当ててそれをタブ区切りテキストに出力するというものです。 ↓ コード ソースSub ExportShapes() Dim sld As Slide Dim shp As Shape Dim oTextFile As String Dim oRow As String oTextFile = ActivePresentation.Path & "\Shapes.txt" Open oTextFile For Output As #1 Print #1, "スライド番号(階数)" & vbTab; "大分類" & vbTab & "ID" & vbTab & "シリアル番号" & vbTab & "説明" & vbTab _ & "中分類" & vbTab & "建屋" & vbTab & "座標" & vbTab & "設置場所" & vbTab _ & "契約所管" & vbTab & "開始日" & vb

このブログの人気の投稿

ダブルクォーテーションで括られたCSVカ​ンマ区切りテキストファイルを SQL Server で Bulk Insert する方法

PowerShellでTSV/CSVの列を絞り込んで抽出し、(先頭/行末)からN行出力する

IKEAの鏡を壁に取り付ける