カテゴリー: あれこれ

ネットで，いろいろあさっていると，VBAで，エクセルに写真を貼り付けるものがめにはいりました。

のようにセルに画像を貼り付けるVBAです。
Ｃ列にある名前をもとに，ホルダーに「名前.jpg」のファイルを検索して，A列に貼り付けるものです。
世の中には，本当にすごい方がいるもんだとつくづく思います。

Sub temp()
Dim c As Range, i As Long, img As String

'画像フォルダーのパス
Const imgFolderPath = "C:\Users\mabo-2021\Desktop\ブログー移行\tesut\"

For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
    Set c = Cells(i, 1)
    img = imgFolderPath & c.Offset(, 2).Text & ".jpg"
    
    MsgBox img
    MsgBox Dir(img)

    If Dir(img) <> "" Then
        With ActiveSheet.Shapes.AddPicture(img, msoFalse, msoTrue, c.Left, c.Top, -1, -1) '//-1→元のサイズ
        'expression. AddPicture(Filename ,LinkToFile,SaveWithDocument,Left,Top,Width,Height)
            .LockAspectRatio = True
            .Placement = xlMove
            .Height = c.Height
            If .Width > c.Width Then
                .Width = c.Width
                .Top = c.Top + (c.Height - .Height) / 2
            End If
        End With
    Else
        c.Value = "No Image"
    End If
Next i
End Sub

我が家には，家内のおじいさんが植えてくれた柿の木がありました。毎年，甘い実をつけて，おいしく食べて
いましたが，２０１８年に葉っぱの色が悪くり，かれてしまいました。

枯れた木をそのままにしておきましたが，台木から，ひこばえの芽がでて，葉っぱをつけるようになりまし
た。
台木は，多分渋柿なので，実が付いても食べられないので，接ぎ木をしててみることにしました。
実家の甘柿の枝ををとってきました。

ひこばえの枝を切りました。

切れ目をいれ，実家からとってきたえだを差し込みました。

周りをラップとガムテープで養生しました。

うまくいくのかどうか，わかりませんが，楽しみにまちます。

注文していた部品がとどきました。

左から，クラッチダラム（スプロケット），ニードルベアリング，ナットです。ナットは，カバーを締め付
けるためのものですが，以前のものは，なめて角が取れているので，思い切って，交換です。
チェーンソーから外した，今まで使っていた部品です。インパクトを使うと，ピストンを固定しなくてもた
やすくはずせます。おまけに，クラッチには，６角のナットがついていますので，ソケットがあれがそのま
外せるのが，機種のいいところですね。ちなみに，G3401EZというゼノアのチェーンソーです。

新品のクラッチドラムと，今までのもの比べてみると，スプロケットの部分が結構摩耗していますが，まだ
使えそうですので，予備の部品ということで，保管しておきます。

外した時の，逆の順番で組み立てて行きます。部品をとった本体ですが，周りは後で掃除できそうなので
このまま組み付けていきます。

まずは，ニードルベアリングです。ニードルベアリングもまだまだ，前のが使えそうですが，交換します。
ニードルベアリングは，通常のベアリングのように，外したりするのにプーラーはいらないんですね。

グリスを塗った後に，ハウシングをはめ込みます。

クラッチハウシングをクラッチの間に，ワッシャがあるようですが，これは，前のを使います。

クラッチをっくみこみます。逆ネジなので，時計と反対方向に回して，締め込んで行きます。
手で締めた後，インパクトで増ししめをします。

最後に，これも新しくしたソーガイド（スプロケットノーズ）を取り付けます。

この後，チェーン（これも新品）を取り付け，カバーをつけて，できあがりです。

この写真は，組み立て完成後，一回作業に使い終わった時のもので，１回の使用で，１２のロゴが，消えかけ
ています。

部品交換後，玉切りをしましたが，以前のように，編芯して切れることは，うそのようになくなりました。や
はり，チェーンがスプロケットに真っ直ぐにかかっていなかったことが，大きかったようです。
チェーンを新品に変えたこともありますが，ストレスなく玉切りができました。

毎日，玉切りにいってますが，チェーンソーにいろいろ不備がでてます。
使ってると，プライマリーポンプが，本体から，飛び出てきました。よく見ると，固定に使っている足の片方
が根本からおれてます。下部写真の左側の純正品のものです。そこで，以前５個で５００円程度で買っておい
たものに取り替えようとしたら，なんと，固定の段階で，２個留め具？が根本からおれてしまいました。やっ
と３個目でうまくいきました。さすが〇華製ですね。

以前純正品をおいてあった，近くのHCに行ってみると，リニューアルしてあり，純正品の扱いがなくなってい
ました。だんだん，エンジンの器具は少なくなるんでしょうかね。

家内従姉妹の依頼で玉切りを始めましたが，ゼノアのチェーンソー　G3401EZ　の具合があまりよろしくあり
ません。
ネットでググると，先達のHPにあるようにいろいろな原因があるようです。残念ながら，私の場合にはあまり
当てはまらないように思えます。

写真のように，斜めに切れます。これでも，苦肉の策で，チェーンの片側だけを研いで，調整したものです。

そこで，チェーンソーのスプロケット周りをよく観察してみると，

チェーンソーを上から(通常使う方から）みると絵のようになってます。
通常の使い方で上から見ると，チェーンがソーガイドより，右側に引っ張られる形で，
スプロケットい巻き付いているようです。これでは，チェーンが傾いた形で，樹木に切り込み，左がわに編芯
してしまいます。
スプロケットの歯車部分をみると，段差がついているいるようで，スプロケットとソーガイド内のチェーンが
真っ直ぐにならない原因になっているようです。
こうなったのは，パワーシャープを使ったときからで，パワーシャープの研ぎ方が偏ってるのかなと思ってい
ました。今使ってるチェーンは，通常のものなので，原因は，パワーシャープではなかったようです。
ソーガイドは，パワーシャープのもので，オリジナルのものは，ちょっと紛失したようです。
そこで，痛い出費ですが，スプロケット，ソーガイド，を新品にすることにしました。交換後どうなることか
楽しみでもあります。結果は，交換後に掲載します。

家内の従姉妹より，切り倒した樹木の玉切りの依頼を受けました。

1日目

1日目の成果です。

２日目

まだ先は長そうです。

玉切りをするにあたって，一定の長さにきった枝と，通称「バカ棒」ですね，

材木チョーク

を使いました。材木チョークは，白を使いましたが，案外めだちません。
何色がいいのでしょうかね，安いので白にしましたが，黄色あたりにしてみましょうか。

３日目です。

４日目です。
　
今日は，それほど時間をとれませんでした。それに，作業前の写真忘れました。中間の写真です。

５日目です。

大分進みましたが，まだまだ，あります。

６日目です。
今日も作業ですが，チェーンソーの調整に時間がかかり，あまり進みませんでした。

７日目です。
最初の依頼の場所がやっと終わりました。

去年に引き続いて，鬼柚がなりました。

去年は，一つだけでしたが，今年は，大きいのが４つ，小さいのが１つ合計４つです。






来年は，もうちょっと，数がなるかなと思いまます。
楽しみが増えました。






結構大きくて，１５ｃｍぐらいありますね。yuzuピールでも作りましょうか。

お仕事のお手伝いで，いろいろやってます。

久しぶりに，講習会の申し込みフォームの変更のために，Perlをいじりました。思い通りの動作になるのに
一苦労。

本当に初歩的なつまづきで，悪戦苦闘です。

CやVBAでは，if　文で等しいか等しくないかの表記は，「＝」や「＝＝」を使いますが，この表現をして，
久しぶりにはまりました。Perlでは，

IF　＄nantoka　eq　”なんとか”　｛等しい時の処理｝

ということで，「eq」を使うんですねえ。これを忘れてしまい，時間ばかりかかってしまいました。

それと，今回も正規表現でつまずづきました。８桁の数字が条件にマッチするかどうかを判断するのに
入力された数字が８桁以上だと，８桁の部分が条件にマッチしてると，通ってしまいました。

if ($kaiin !~ /^1([0-9]{7})/) {
　　&error(“１から始まる８桁の半角数字でご記入ください。”);
}

これは，１から始まる８桁の数字が入力されることを求めるものですが，８桁以下の数字だときちんと
判断できるのですが，８桁以上だと，８桁までの数字がマッチしていると，通ってしまします。
別な表記の正規表現もあるのかもしれませんけど，分からないので，

if (length($kaiin) > 8) {
　&error(“数字は８桁です。”);
}

のように，前に，桁数のチェックを入れて，回避しました。