Techのアーカイブ

2年の刑期をおえて無事解約しようと思ったら、使わない月はゼロ円になるプランへの変更を勧められた。

その「にねん得割」については、Web上では月額4280円となっているが、まったく使わない月は基本料金が0円になるというプランのようだ。

申し込み確認書には、以下のようにかいてある。

「データプラン（にねん得割）」ご加入のお客様で、ご利用期間が新規契約月の翌月から起算して2年以上の場合、課金対象となる通信のご利用がない月の月額料金がかかりません」

つまり、2年の刑期をおえてこのプランに変更した場合は、使わない月は0円で回線を維持しつつ、使うときは月額MAX4280円でも使えるらしいのだ。

契約解除にはならないので、契約解除手数料やらもかからないし、今月からすでにこのプランが適用される（つまり今月つかってなければ今月の基本料金はタダになる）らしく、間近の支払い額にずいぶんと差がでてくることがわかった。

e-mobileはどちらかというと長期利用者よりも新規加入者に手厚いイメージがあったが、とりあえず契約継続のためにいろいろやっているようである。

とうぜんこのプランも縛りがあるのだが、使わない月は0円とのことなので、しばりもあってないようなものであろう。

このにねん得割を0円で生かしたまま、2台目のデータ専用プランを契約すると2700円程度（これは店頭申し込み限定プランだったので資料なし）で、使い放題プランが契約できる模様。

ちなむと、ちょびっとでもつかうと4280円なので、SIMカードを抜くか電源をいれないで緊急用にとっておくようe-mobileショップの人に注意を受ける。（携帯でもモバイルルータでも、電源ONにするだけで多少の通信が発生するので、それによる料金発生トラブルを未然に防ぐためだろう。）

b-mobileの6ヶ月SIMが切れたころに、再度検討することにしよう。月額数百円の追加投資で、数倍のスピードがでるのであれば、b-mobileにこだわる必要性はない、むしろメイン携帯のDoCoMoとリスクを分散させる意味でも有効だろう。

ちなむと、先月かったSIMフリーの端末は、初期不良のため香港に送り返して故障対応中である。　そこらへんの顛末や、処理については無事に修理から戻ってきたら書くこととしよう。

今まで

2年前に引越しのタイミングで、PocketWifi(e-mobile）を契約した。

引越し後、ネット回線の開通日が未定で2,3ヶ月かかるかもしれないという話をきき、半ば衝動的に契約したのだ。

基本料を抑えるために2年縛りではあるが、携帯は定額パケットプランに加入してなかった為、回線開通後はモバイル用の通信手段として運用する予定であった。

ネット回線は引越し後1週間程度（申し込みからは1ヶ月程度）で開通し、自宅の通信インフラとしてe-mobileを使うという期間は短かった。

その後は通勤時にipod touchで、ニュース、RSSリーダやTwitterを見たりなど、比較的テキストベースに近いサービスで利用していた。

しかし引越して急に通勤時間が倍ちかくになったことと、小さいiPodの画面をずっと見ていることが原因なのか、1ヶ月ほどで激しい肩こりに悩まされるようになり、利用を少し控えることとした。

結果e-mobileを利用する時間はへったものの、基本料の安い別のデータプランに変更するまでの通信削減には至らず、使用頻度がさがるものの月の支払いは変わらずという状態が続いた。

とある日、クレジットカードの明細書を見て、妻が「通信料」の削減ができないかの提案をしてきた。こちらの返答は以下のとおり。

• 2年縛りなので途中解約すると違約金がかかる
• 別のプランに変更も可能だが、場合によっては今の金額より高くなる可能性もある
• というか、トータルでいうとあなたの携帯代のほうが高いんですけど…

数ヶ月はそのまま追求をかわし、のらりくらりと使ってはいたんだけど、やはり自分も通信料にみあった使い方をしていないと思い、e-mobileの最安プランに変更し、以下のような運用とした。

• 基本的には通常は携帯せず利用しない
• 出張や旅行時等の必要時は利用する

通信断ちである。まぁ、その分ゲームや雑誌やかってたので通信費の細目での出費が減っただけではあるが。　プラン変更すると、使わない月が2000円に減る変わりに、使った月は7000円強とアップする。

平均すると結局は4000円弱程度になり、当初のプランで気にせずじゃぶじゃぶ使ったほうが精神衛生上良かったのではないかと思う次第。

で、来月やっとそのe-mobileの2年縛りが無くなるわけで、今後どのように運用するかを考えた。基本的には音声通信できる端末はライフラインなので、よほど電池持ちがよい機種がでてこない限りスマートフォンに変更する気はない。

今後の話

携帯電話→ガラケーに機種変更（現状維持）

電池というか筐体がいかれかけているので、利用形態は現状維持のもののハードウェアのみリプレースとした。

新料金プランへの移行と、たまっていたDoCoMoポイントのおかげで、実質的にはほぼ現状の料金のまま機種変更が可能であった。

e-moble→解約

2月になったら即解約。かわりにb-mobileのU300の6ヶ月のを試してみる。これだと、縛りがほとんど無い上に、月額2000円強。ただし速度の縛りはある。

パケット総量はそれなりにあるがスピードは求めない利用という認識であるので、それほど問題にはならないと予想。

しかし、b-mobileは期間終了後、チャージするよりも毎回SIMを買いなおすほうがリーズナブルというへんな事になっている。うちがつかっていた洗濯洗剤も、詰め替え版かうほうが高いけど。

とりあえず、これを通信費として認めてもらえるように別途、稟議予定。

PocketWifi→DoCoMo端末 or SIMフリー端末に変更

b-mobileのSIMが使える端末を入手予定。具体的には、DoCoMoを白ロムで手に入れるか、SIMフリーの端末を手にいれるか。PocketWifiなんかのモバイルルータは、面倒なので却下。

端末入手については、別途書く。

出張、旅行時のネット（e-mobile)→U300で我慢？ or  小型無線AP

その昔、出張族だったときは普通にNECのATERMを持ち歩いていたけど（現在は妻実家の無線環境として活躍）、いまはこういうちっこくて安いのがたくさんあるのね。必要になったら、購入を検討しよう。

残課題

あとは、妻のパケホーダイをどうにかしたいなぁ。あまり使ってない（本人談）らしいのだが、利用形態をがっつり変えない限りは、削減ははかれまい。

月額\4,800×12で年間6万円弱なので、これをメール限定のパケホーダイにかえて、白ロムのスマホをU300とかで運用したほうが安くて楽しいのに。

vb.netからpowerpointを制御するための有用な情報リンク＋自分で書いたコードのメモ

C#のページもあるけど、基本的にPIA部分のコードは変わらないので後で使えそうなのはメモしておく。

Visual Studio .NET を使用して Microsoft Office ソリューションを開発する
http://support.microsoft.com/kb/311452/ja

オートメーションを使用して PowerPoinプレゼンテーションの作成および表示を行う方法
http://support.microsoft.com/kb/303717/JA

オートメーションを使用して、Visual Basic .NET で Office ドキュメントのプロパティを取得および設定する方法
http://support.microsoft.com/kb/303294/ja

Visual Basic .NET で PowerPoint のイベントを処理する方法
http://support.microsoft.com/kb/308330/ja

WebBrowserコントロール経由でアプリ内にPPTを表示する方法
http://support.microsoft.com/kb/304643/ja

http://www.dotnetspider.com/resources/29664-Power-point-presentation-VB-net.aspx

テキストを走査するクラス他(C#sample)
http://d.hatena.ne.jp/torasenriwohashiru/?of=10
http://d.hatena.ne.jp/torasenriwohashiru/searchdiary?word=*[PowerPoint]

ロゴスウェア システム開発部のblog(C#sample）
http://blog3.logosware.com/archives/tag/%e3%83%91%e3%83%af%e3%83%bc%e3%83%9d%e3%82%a4%e3%83%b3%e3%83%88

上記に追加で個人的メモ

Powerpointをひらく

Dim ppt_pres As PowerPoint.Presentation
Dim Ppt_app As New PowerPoint.Application

Ppt_app = New PowerPoint.Application
Ppt_app.Visible = MsoTriState.msoTrue
ppt_pres = Ppt_app.Presentations.Open("c:\sample.ppt")

現在ひらいているスライドを選択（slideshowモードだと例外が発生するので注意）

Dim slide
slide = Ppt_app.ActiveWindow.View.Slide

楕円の追加（塗りつぶしなし）

Dim oShape As PowerPoint.Shape
oShape = slide.Shapes.addshape(MsoAutoShapeType.msoShapeOval, 520, 36.0#, 160, 150)
oShape.Fill.Visible = MsoTriState.msoFalse
oShape.Line.ForeColor.RGB = &HFF
oShape.Line.Weight = 5.0#
oShape.Line.DashStyle = MsoLineDashStyle.msoLineSolid

その他のシェイプは、

1)PowerPointでマクロを記録開始する
2)任意のShapeをスライドに追加、また書式の変更を実施
3)マクロの記録停止
4)マクロのソースを見ると必要なコードが表示されている

ゴミが入ることと、若干コードの修正は必要ですがリファレンス等で調べるよりは楽です。

テキストボックスの追加

oShape = slide.Shapes.AddTextbox(1, 500, 20, 200, 100)
oShape.TextFrame.TextRange.Font.Bold = MsoTriState.msoFalse
oShape.TextFrame.TextRange.Font.Name = "HGP明朝B"
oShape.TextFrame.TextRange.Text = "済"
oShape.TextFrame.TextRange.Font.Size = 128
oShape.TextFrame.TextRange.Font.Color.RGB = &HFF

テキストボックスの追加（背景色、透過有り）

oShape = slide.Shapes.AddTextbox(1, 500, 190, 200, 60)
oShape.TextFrame.TextRange.Text = "sampleword"
oShape.TextFrame.TextRange.Font.Size = 12
oShape.TextFrame.TextRange.Font.Color.RGB = &HFF
oShape.TextFrame.TextRange.Font.Name = "Arial Black"
oShape.Fill.Visible = MsoTriState.msoTrue
oShape.Fill.Solid()
oShape.Fill.ForeColor.RGB = &HFFFFFF
oShape.Fill.Transparency = 0.25#

特定の文字列があるシェイプをさがす(slideには事前に走査対象のslideに設定しておく）には、hastextframeをみてtrueの場合に、textrange.textを取得すればよい。

Dim shape
Dim shape_text as string
 For Each shape In slide.Shapes

    If shape.HasTextFrame Then
      shape_text = shape.textframe.textrange.text
      If shape_text.IndexOf("さがしたい文字列") >=0 Then （みつかった場合の処理)
    End If
 Next

shapeがTableの場合は、各セル内のtextframeの内容を順に見る必要がある。
shape.hastableがtrueの場合は、さらに下記のコードを追加する。

If shape.HasTable Then
   Dim colx, lowy, cflag
   colx = 0
   For colx = 0 To shape.table.columns.count
      For lowy = 0 To shape.table.rows.count
Try
   cflag = shape.table.cell(colx, lowy).shape.HasTextFrame
Catch ex As Exception
   cflag = False
End Try
If cflag Then
   Try
      shape_text = shape.table.cell(colx, lowy).shape.textframe.textrange.text
      If shape_text.IndexOf("さがしたい文字列") >= 0 Then （みつかった場合の処理)
   Catch ex As Exception
      shape_text = ""
   End Try
End If
      Next
   Next
End If

セルの結合等にて存在しない行・列のセル等を参照した場合には例外が発生するため、例外の発生の有無をみて処理を分岐させているが、もっとよい方法があるかもしれないので、あまりここは真似しないように。