元来は、さまざまなグラフ画像をURLだけで生成できるというグーグルさんの触れ込みでした ー GoogleChartAPI（VBAマクロ）

         

エクセルのマクロで経験した中で、ＱＲコードを表示させるのは難しいお仕事。

”OLEObjects”というプロパティがあるのですが、これでバーコードも作れるな。

この懐かしいOLEというのは、Microsoftの複合文書技術のフレームワークです。

要は、テキスト、カレンダー、アニメーション、サウンド、動画等が主な対象。

あらゆる種類のビジュアルなオブジェクトや情報オブジェクトを含んでいます。

もし、この機能を搭載したアプリなら、アプリ間でオブジェクトのコピペもOK。

確か、コピー元を変えると、リンクされた先のオブジェクトも変更されるはず。

そういった便利さから、エクセルで作ったグラフをパワポに貼ったりしました。

昔は、このOLEの機能がよく使われましたが、現在はあまり使われていません。

まあ、専門的にはチンプンカンプンなので、話はこれぐらいにしましょうかね。

それで、このOLEの機能は、ウインドウズ上で動作するアプリ間で連携します。

アプリで機能を搭載する但し書き付きですが、今や違うＯＳも増えて来ました。

なので、この機能はさておいて、実際のQRコード作成ではデメリットがあるの。

それは、変換機能が、アルファベト等１バイト文字の対応だけになっている点。

漢字等２バイト文化圏の文字がコード変換できないので、仕事には使えません。

市販のアドインみたいなソフトもありますが、お金もかけられないので諦めた。

なので、実験的にコード作成しましたが、実際は別な方法が残されていました。

それは、”GoogleChartAPI”という外部サービスを引用して作成するのですよ。

ネットで発見したサンプルコードも実に単純だし、呼び出し作成も意外に早い。

というわけで、参考にコードを貼っておくので、使いたい人は使っておくれな。

実は、このQRコードのサービスでは、ネットで検索しているとグーグルが既に中止したとか言っている人もいたりして、でも、実際にコードを起動させると作成されてきますので、タダで使えればそれでいいじゃんと思ってしまうのでした。

※サンプルコード

Sub QRmkngGoglChrt() 'QRコード作成

Dim msg As String, Url As String, Shp As Shape

  msg = "ここに２バイト文字を貼ってみる"

    Url = ""

      Url = Url & "https://chart.apis.google.com/chart?"

        Url = Url & "cht=qr&chs=130x130&chl="

          Url = Url & msg

            Url = Url & ""

  Set Shp = ActiveSheet.Pictures.Insert(Url).ShapeRange(1)

    Shp.Top = 0 'ワークシート上の貼付位置：ポイント単位

      Shp.Left = 0

End Sub

Sub ShpDelete() '貼り付けたQRコードの削除 

Dim Shp As Shape

  For Each Shp In ActiveSheet.Shapes

    Shp.Delete

  Next Shp

End Sub

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

回復したのに さまざまな症状がでる後遺症が心配な今日この頃ですが、せめて五月連休は楽しく暮らしたい ー コロナ後遺症（健康問題）

          

どうも、コロナ回復から日数が経つのに、倦怠感が消え去らない日々ですなあ。

それで、コロナに罹患した人の症状は、昨今ですとバラバラのような感じです。

自分は発熱とのどの痛みでしたが、昨年に罹患した上さんは、咳き込みでした。

当然、発熱もしたそうですが、かつての高熱でもなくて、自分も38度くらいだ。

なので、コロナのウイルスも色々な種類がありそうだという話に落ち着きそう。

直っても体力の回復までには時間が掛かりそうな予感なので、五月連休は静養。

インバウンドの外国人旅行客も押し寄せそうな予感で、あえて避けるとします。

なので、自宅でくつろぐ気になっているのも、今年でリタイアする気だからな。

リタイアしてしまえば、あえて繁忙な旅行シーズンに出かけることも要らない。

連休明けの五月、雨期に入る前にのんびり旅をすれば、未だ空いていると思う。

本当は、鳥取島根の両県で風光明媚な場所は、未だ訪れていないので訪ねたい。

国宝お島根城、出雲大社、庭園が美しい足立美術館など、挙げればきりがない。

しかも、二十代の時の友人が米子で健在なのも分かったから、再開しておこう。

最近、こんなことを思うのも、体の自由が利く間、旅の見聞を深めておきたい。

自分に近い年齢の有名人が逝去されるニュースをよく聞くようになったからな。

まあ、何時お陀仏になる分からない年齢に、差し掛かったと言うことなのです。

であれば、働かずにのんびり暮らすべきだろうと、思い返すようになりました。

それに、上さんがマンションを外地に持っていて、そこと二拠点生活もできる。

季節の良い時期を選び、二つの拠点を往来しておれば、楽しい生活になるかな。

というわけで、もうあくせく働き歳でもないので、残り少ない出勤はのんびり。

それでも、海外の顧客と英語で折衝できる人材は、ほとんどいないので専任みたいな感じで仕事をしている分けですが、そろそろ後任でも探しおいてくれと懇願したく名自分なのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

風評被害が心配と言いつつ、風評被害を煽るメディアもひどかったとは思うが、こいつは最低の下衆女だ ー 酒井 なつみ 衆議院議員候補（立憲民主党）

　　　　

選挙活動真っ最中の衆議院三補欠選挙は、日夜ニュースで知ることができます。

それで、三地区とも自民党が不戦敗するという予測が、ほぼ的中するだろうな。

それで、自分が最も興味のあるのは、東京１５区の大乱戦になった選挙区です。

九人もの候補者が乱立していますが、組織票で優位に戦うのが酒井なつみ候補。

と言いたいのですが、この候補は、労組の組織票を当てにできなくなりました。

なぜなら、連合の芳野友子会長が、記者会見でこの共産党との共闘を大批判だ。

本候補が、共産党から支援を受ける構図で、連合としては容認できないと判断。

この表明は、かなりの激震になっているとみて、酒井候補の組織票は崩壊だぜ。

まあ、立憲民主党の候補ですから、左翼陣営の集票は手堅いはずだったんだが。

それに、この女性は、福島放射能風評デマを過去にまき散らしていたと露見だ。

福島県は、原発事故のあと、放射性物質の検査結果が基準値以下だったのです。

それなのに、放射能を恐れた無知な国民は、農産物や水産物を買い控えました。

しかも、原発から離れた地域まで、放射線量を気にして観光客が来なくなった。

そんな状況も、ネットなどで人為的にデマ情報を確信した人非人がいたからだ。

酒井 なつみ （衆議院議員候補(立憲民主）

2012年10月16日 夜勤明け。

清々しい空気に、 ほのかに香る金木犀の香り。

気持ちよくて、背伸び !

放射能がなければなあ...

2012年3月11日

悲しいのは津波によってすべてが流されたこと。

...

放射能が拡散し、 食住ができなくなったこと。

この二つの中には対策をとれば、 防ぐことができたこともあっただろう。 

今後の教訓に。

2011年6月21日

@you_tikyujin さんまの蒲焼ですー! (^^) マスクは放射能対策ですね。

2011年6月14日

iPhoneで 「放射能で首都圏消滅utun.jp/G90」 が読める! 

Apple Storeで現在、 特別価格の350円 (6/14以降は800円)。

書籍版は1,260 円なのでかなりお得。 ぜひぜひ! #genpatsu

2011年5月22日

3日前からおなか痛くて下痢気味で、今日は、ちょっとだけだけど、 突然鼻 血が出た。(>_<)

これは、放射能被爆の初期症状ですか? 怖いよ! (;;)

2024年4月16日

昨日も今日も東京、 福島の風向きは、北風だから、

影響は少ないのかな。ほっ。

というわけで、デマゴーグ拡散候補は、国政の舞台などへ登場させられません。

このほか、入れ墨者の候補者、つばさの党、根本りょすけは、大学院中退という学歴でナンパ師をしていた、とんでもない変態野郎、この１５区補選では、まともな候補は、日本保守党の飯山あかりさんぐらいだろうと、思ったのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

マクロの図形絡みで処理する奥義を、ご披露したいと思って、シコシココードを作ってみたのでござる ー Shape & ChartObject（VBAマクロ）

            

前回の投稿に続いて、セル範囲を180度回転させてから画像を保存する話です。

この方法は、シェイプの画像保存よりも、簡単なマクロコードになっています。

シェイプは、各々を配列にまとめて”Range”として設定するのが少し複雑だな。

これに対して、今回はセルに入力された内容の範囲を指定するだけなので簡単。

ネットから紹介されているコードを、色々と参考にしながらまとめてみました。

それで、宛名書きにセルの内容を使う時は、セルの枠線を消しておくのが肝心。

簡単な宛名の印刷なら、こちらのセル範囲を使ってデータを流し込むの便利ね。

複雑な構成のデザインなら、文言の配置が自在になるテキストボックスだろう。

なので、どちらが適当なのかは、コードを書く時に判断していただきましょう。

そこで再説しますが、要点は封筒のあて名書きの書く方向次第だという事です。

封筒をプリンターの手差しトレイで印刷して、封のベロを左に見て書く場合ね。

手差しトレイでは、封筒を底部からセットしますので、この工夫が必要な分け。

        

まあ、ここまでやる必要があるのかどうかは分かりませんが、理由があるのだ。

出荷製品の領収書を同封する封筒を印刷するコードが必要になるかもしれない。

この話は、社内で一度持ち上がりましたが、作っている最中で沙汰闇になった。

だって、メインフレームシステムでも印刷できるからという話ではあったのよ。

なので、コードを書いても使うかどうかは分かりませんが、暇つぶしに準備だ。

というわけで、ワードとエクセル連携で、まともな封筒印刷ができるお話です。

これに関連したVBAの投稿は、連続してアップしているので、通して読んでいただければ、マクロの図形絡みで処理する奥義を理解していただけると、自画自賛の自分なのでした。

※参考マクロコード

Sub RngChartSve() 'セル範囲をチャートに載せて画像保存

Dim Rng As Range, Chrt As chart, ChrtNme As String

  ActiveWindow.DisplayGridlines = False  'セルのグリッド線消去

    Set Rng = Range("A1:E5")

      ChrtNme = "C:" & Environ("HOMEPATH") & "\Downloads\" & "CellPict.png"

    Rng.CopyPicture

Set Chrt = ActiveSheet.ChartObjects.Add(0, 0, Rng.Width, _

  Rng.Height).chart  'セル範囲をカバーするチャートオブジェクトを追加

    With Chrt

      .Parent.Select

        .Paste 'シート上に表示

          ActiveSheet.ChartObjects(1).chart.ChartArea.Format.Line.Visible _

              = msoFalse 'オブジェクトの外枠線消去

            Selection.ShapeRange.IncrementRotation 180 '180度回転

              .Export ChrtNme  'チャートを保存

    End With

  ActiveSheet.ChartObjects(1).Locked = False  'シート上に1つだけの認識

ActiveSheet.ChartObjects(1).Delete

  ActiveWindow.DisplayGridlines = True 'セルのグリッド線表示

End Sub

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村